VBA使用FileSystemObject复制或移动文件

2017-08-08 16:50:00
zstmtony
原创
140

以下VBA代码 使用FileSystemObject复制或移动文件,适用于access excel等VBA环境



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"  '目标路径
    Set objFS = CreateObject("Scripting.FileSystemObject")  '创建FileSystemObject fso对象
    With objFS
        If .FileExists(strDestination) Then
            .DeleteFile (strDestination)   ‘如果目标文件存在,先删除目标文件
        End If
        .MoveFile strSource, strDestination   '移动文件
    End With
    Set objFS = Nothing
End Sub
分享