VBA使用FileSystemObject復(fù)制或移動(dòng)文件

以下VBA代碼 使用FileSystemObject復(fù)制或移動(dòng)文件，適用于access excel等VBA環(huán)境

Public Sub Move_File()
    Dim strSource As Variant
    Dim strDestination As String
    Dim objFS As Object
    
    strSource = "C:\Temp_C\Test.txt"  '源路徑
    strDestination = "C:\Temp_Test\Test.txt"  '目標(biāo)路徑
    Set objFS = CreateObject("Scripting.FileSystemObject")  '創(chuàng)建FileSystemObject fso對(duì)象
    With objFS
        If .FileExists(strDestination) Then
            .DeleteFile (strDestination)   ‘如果目標(biāo)文件存在，先刪除目標(biāo)文件
        End If
        .MoveFile strSource, strDestination   '移動(dòng)文件
    End With
    Set objFS = Nothing
End Sub