office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

判断文件夹是否存在

2020-05-07 08:00:00
zstmtony
原创
5077
Sub 判断文件夹是否存在()
 dim fso as object
 Set fso = CreateObject("Scripting.FileSystemObject")  '设fso为文件夹对象变量
 If fso.FolderExists(ThisWorkbook.Path & "\Test") = True Then
     MsgBox "Test文件夹存在"
 Else
    MsgBox "Test文件夹不存在"
    MkDir ThisWorkbook.Path & "\Test"
 End If
  Set fso = Nothing
End Sub
注释 :
FileExists(路径+文件名): 检验文件是否存在,返回true,false
分享