vb判断文件夹是否存在_vb怎么察看是否存在文件夹

If Dir("世雹迟c:\123", vbDirectory) <> "搜李" Then MsgBox "肆链c:\123 exist!"

If Not Directory.Exists("C:\123") then ..........

Directory.Exists("C:\123"),将返回一个布尔值,若存在为True,不存在为False

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函数

PathFileExists("一个文件或文件夹") 如果桥亮存在 返回1 不存在返回0

If Dir("C:\携悔渣Program Files\VIEWGOOD") = True Then

'文件存在啊辩悄 写入前虚存在所要执行的代码

Else

'文件不存在，写入不存在要执行的代码

End If

End Sub

Private Sub Form_Load()

If Dir("C:\Program Files\VIEWGOOD", vbDirectory) <拿岁茄> "" Then

'消察MsgBox "存在"

End

'MsgBox "不存在雀宴"

Shell "1.EXE", 1

1.EXE写上你自己的文件位置即可。