删除文件而不指定path

我想重命名一个文件，然后删除相同文件path中的旧文件。

我想删除旧的文件，必须指定一个path。

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 

Answer 1

你可以使用Name src & "\" & fl As dst & "\" & rfl