如何用vb判断文件夹是不是存在

Posted 2023-03-14

比如 如何判断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 参考技术A If Not Directory.Exists("C:\123") then ..........
Directory.Exists("C:\123"),将返回一个布尔值,若存在为True,不存在为False
这是vb.net的方法.... 参考技术B If Dir("c:\123", vbDirectory) <> "" Then MsgBox "c:\123 exist!"