比如 如何判断c盘里是否有文件夹"c:\123” 满意答案API函数 PathFileExists 声明 Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long PathFileExists("一个文件或文件夹") 如果存在 返回1 不存在返回0 If PathFileExists("C:\123") then ... Dir不准确 如果有下列目录结构 D盘中有文件夹 test 文件夹中有testFile.txt文件 还有空文件夹 testEmpty 则 Dir("d:\test\testFIie.txt") 返回 testFile.txt Dir("d:\test\testFIie11111111.txt") 返回 "" Dir("d:\test\") 返回 testFile.txt (返回此文件夹第一个文件) Dir("d:\testEmpty") 返回空 dir("一个不存在的文件夹")返回空 也就是说如果一个文件夹下没有文件(不管有没有子文件夹)则 dir("一个文件夹")就返回空 所以不能通过 dir("一个文件夹")来判断一个文件夹是否存在。 只能调用api函数 Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long PathFileExists("一个文件或文件夹") 如果存在 返回1 不存在返回0 |
|