杭州交通信息网楼盘开盘什么意思:VB中怎么判断一个文件夹是否存在？
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 04:01:48
比如用按钮的单击事件来判断 "D:\123" 这个文件夹是否存在
存在则输出YES 不存在则输出NO
怎么在这个按钮里写命令？？？？？？？？
一楼的方法不行啊，谁能提出能好的方法？？？
二楼的方法必须要在这个目录里有已知的文件才能判断，也不符合我意啊！！！！
有谁能有能好的方法？？？？？？我很急啊
存在则输出YES 不存在则输出NO
怎么在这个按钮里写命令？？？？？？？？
一楼的方法不行啊，谁能提出能好的方法？？？
二楼的方法必须要在这个目录里有已知的文件才能判断，也不符合我意啊！！！！
有谁能有能好的方法？？？？？？我很急啊
if dir("d:\123",vbdirectory) <>"" then ....
不过隐藏的不行
使用FSO：
Dim objFSO As New FileSystemObject
If objFSO.FolderExists("D:\123") = True Then
'表示存在
Else
'否则不存在
End If
Set objFSO = Nothing
看DIR函数返回的是不是空字符串:
文件存在:DIR(FILENAME)<>""
文件不存在:DIR(FILENAME)=""
dim mydir as string
mydir=dir(d:\123,vbdirectory)
if mydir<>"" then
if mydir<>"."and mydir<> ".." then
debug.print "yes"
end if
else
debug.print "no"
end if