office交流網(wǎng)--QQ交流群號(hào)及微信交流群

Access培訓(xùn)群:792054000         Excel免費(fèi)交流群群:686050929          Outlook交流群:221378704    

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

微信交流群(請(qǐng)用微信掃碼)

        

判斷文件夾是否存在

2020-05-07 08:00:00
zstmtony
原創(chuàng)
5236
Sub 判斷文件夾是否存在()
 dim fso as object
 Set fso = CreateObject("Scripting.FileSystemObject")  '設(shè)fso爲(wèi)文件夾對(duì)象變量
 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(路徑+文件名): 檢驗(yàn)文件是否存在,返迴true,false
分享
文章分類
聯(lián)繫我們
聯(lián)繫人: 王先生
Email: 18449932@qq.com
QQ: 18449932
微博: officecn01
移動(dòng)訪問