0
Ich möchte eine Datei umbenennen und dann die alte im selben Dateipfad löschen.Löschen Sie eine Datei ohne Angabe des Pfades
Ich möchte die alte Datei löschen, ohne einen Pfad angeben zu müssen.
Private Sub CommandButton4_Click()
Dim src As String, dst As String, fl As String
Dim rfl As String
'Source directory
src = ActiveWorkbook.Path
'Destination directory
dst = ActiveWorkbook.Path
'File name
fl = "file.mdb"
'Rename file
rfl = "file_OLD.mdb"
On Error Resume Next
FileCopy src & "\" & fl, dst & "\" & rfl
If Err.Number <> 0 Then
MsgBox "Copy error: " & src & "\" & rfl
End If
On Error GoTo 0
Kill file
End Sub
verwenden können, wenn Sie eine Datei umbenennen, gibt es keine alte Datei. Die alte Datei wird in den neuen Dateinamen umbenannt. Wonach suchen Sie? – shahkalpesh
Nichts davon macht Sinn. Sie haben einen Pfad, warum ist es wichtig, dass Sie keinen Pfad angeben (nicht zu erwähnen, wie @shahkalpesh sagt, dass das Umbenennen der Datei den alten Namen verschwinden lässt). – JNevill
Hinweis: 'FileCopy src &" \ "& fl, dst &" \ "& rfl' umbenennt nicht ** eine Datei, sondern ** kopiert ** eine Datei - um sie umzubenennen (und möglicherweise zu verschieben)) Du würdest sagen: "Name src &" \ "& fl Als dst &" \ "& rfl' – YowE3K