九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

• 

• 平淡如茶

  

  碼齡7年

關(guān)注

一、判斷文件或文件夾是否存在Function FileFolderExists(strFullPath As String) As BooleanOn Error GoTo EarlyExitIf Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = TrueEarlyExit:On Error GoTo 0End Function可判斷文件或文件夾是否存在。假如D盤存在1.txt（文件）、新建文件夾（文件夾），則：msgbox FileFolderExists('D:\1.txt') 'truemsgbox FileFolderExists('D:\1.txt\') 'falsemsgbox FileFolderExists('D:\新建文件夾') 'truemsgbox FileFolderExists('D:\test') 'false二、判斷文件夾是否存在引用于https://www.cnblogs.com/xwdreamer/p/3509701.htmlFunction FileFolderExists(strFullPath As String) As BooleanDim fsoSet fso = CreateObject('Scripting.FileSystemObject')If fso.folderExists(strFullPath) Then FileFolderExists = TrueSet fso = NothingEnd Function