VBA 文件移动和判断文件是否存在
Function 文件移动(ByVal 旧文件路径 As String, ByVal 旧文件名 As String, ByVal 新文件路径 As String, ByVal 新文件名 As String)
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
If fso.Folderexists(旧文件路径) And fso.Fileexists(旧文件路径 & 旧文件名) And fso.Folderexists(新文件路径) And (Not (fso.Fileexists(新文件路径 & 新文件名))) Then
fso.Movefile 旧文件路径 & 旧文件名, 新文件路径 & 新文件名
Else
MsgBox "出错啦!请检查一下项目:" & vbCrLf _
& "1.查看文件是否存在" & vbCrLf _
& "2.查看路径是否存在" & vbCrLf _
& "3.查看目标目录是否存在该文件" & vbCrLf _
, vbInformation, "VB小源码提醒您!"
End If
End Function
使用方法:
Sub a()
Call 文件移动("C:\Users\sss\Desktop\test1\", "a.txt", "C:\Users\sss\Desktop\test2\", "a.txt")
End Sub