VBA文件和文件夹操作

最新推荐文章于 2024-06-05 07:46:41 发布

c_cwh

最新推荐文章于 2024-06-05 07:46:41 发布

阅读量1.7k

点赞数

分类专栏： Excel VBA 文章标签： vba string function path file object

本文链接：https://blog.csdn.net/c_cwh/article/details/4633719

版权

Excel VBA 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

'创建文件夹
Function Create_folder(ByVal Path As String, ByVal FileName As String)
Dim folder As Object
'设置FSO对象
Set fso = CreateObject("Scripting.FileSystemObject")
'如果文件夹不存在就创建
'出错跳转
On Error Resume Next

If Not (fso.Folderexists(Path & FileName)) Then
Set folder = fso.Createfolder(Path & FileName)
Else
MsgBox "Folder already exists!", vbInformation, "ERROR:"
End If
'err: MsgBox "Error Number:" & err.Number & ",Please contact the program developer!", vbInformation, "ERROR:"
End Function

'拷贝文件
Function Copy_file(ByVal SourcePath As String, ByVal SourceFileName As String, ByVal TargetPath As String, ByVal TargetFileName As String)
Set fso = CreateObject("Scripting.FileSystemObject")
'判断源文件是否存在
'如果目标路径存在则拷贝文件，否则提示目录不存在
'如果目标位置存在同名文件则对其进行覆盖
'出错跳转
On Error Resume Next

If fso.Folderexists(SourcePath) And fso.Fileexists(SourcePath & SourceFileName) And fso.Folderexists(TargetPath) And (Not (fso.Fileexists(TargetPath & TargetFileName))) Then
    fso.Copyfile SourcePath & SourceFileName, TargetPath & TargetFileName, False
Else
    MsgBox "Possible errors:" & vbCrLf _
            & "1.The source file does not exist" & vbCrLf _
            & "2.Target path does not exist" & vbCrLf _
            & "3.The destination file already exists" & vbCrLf _
            , vbInformation, "ERROR:"
End If
End Function

'移动文件
Function Move_file(ByVal SourcePath As String, ByVal SourceFileName As String, ByVal TargetPath As String, ByVal TargetFileName As String)
Set fso = CreateObject("Scripting.FileSystemObject")
'判断源文件是否存在
'判断目标位置是否存在
'如果目标路径存在则拷贝文件，否则提示目录不存在
'如果目标位置存在同名文件则会报错
'出错跳转
On Error Resume Next

If fso.Folderexists(SourcePath) And fso.Fileexists(SourcePath & SourceFileName) And fso.Folderexists(TargetPath) And (Not (fso.Fileexists(TargetPath & TargetFileName))) Then
   fso.Movefile SourcePath & SourceFileName, TargetPath & TargetFileName
Else
    MsgBox "Possible errors:" & vbCrLf _
            & "1.The source file does not exist" & vbCrLf _
            & "2.Target path does not exist" & vbCrLf _
            & "3.The destination file already exists" & vbCrLf _
            , vbInformation, "ERROR:"
End If
End Function