删除文件时未指定路径

我想重命名文件，然后删除相同文件路径中的旧文件。删除文件时未指定路径

我想删除旧文件，必须指定一个路径。

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

来源

2017-08-07 Max Bridge

当你重命名文件，没有旧文件。旧文件被重命名为新文件名。你在找什么？ – shahkalpesh

这都不合理。你有一条路径，为什么你不指定路径很重要（更不用说像@shahkalpesh说重命名文件会使旧名字消失）。 – JNevill

注意：'FileCopy src＆“\”＆fl，dst＆“\”＆rfl'不是**重命名**文件，而是**复制**文件 - 重新命名它（并可能移动它）你会说'Name src＆“\”＆fl As dst＆“\”＆rfl' – YowE3K

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

来源

2017-08-08 09:32:29 SayaliT

谢谢，只会删除当前文件夹中的文件，而不必指定路径（因为它总是不同的）帮帮我！ –

删除文件时未指定路径

回答

相关问题