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

比如 如何判断c盘里是否有文件夹"c:\123”

在VB中编程中,经常需要判断一个文件是否存在,以便执行相应的操作,这可用下列语句进行判断

Dir([pathname],[Attributes as VbFileAttribute=vbNormal]) As String

解释:
pathname:文件的绝对路径;
Attributes:文件的属性。
“[]”内为可选项。

结果:dir(file)=""表示文件不存在,dir(file)<>""表示文件存在。

例如判断c:wpswinwps.exe是否存在。若存在,就调用它,就用下面的源代码:
if dir("c:wpswinwps.exe")<>"" then
shell "c:wpswinwps.exe"
end if

但如果判断的文件是隐藏文件,上面的语句则无法判断出来,这时就需要加上后面的可选项目。

例如判断C盘根目录下是否有隐藏文件command.com,就用下面的源代码:
if dir("c:command.com,vbhidden")<>"" then
msgbox"Found c:command.com"
end if

判断文件夹是否存在,就用下面的源代码:
dir(文件夹路径, vbDirectory) <>""
例如,要判断文件夹c:aaa是否正在,则代码如下:
if Dir("c:aaa", vbDirectory) <>"" then
 msgbox"文件夹:c:aaa 存在!"
end if
温馨提示:答案为网友推荐,仅供参考
第1个回答  推荐于2017-05-23
VB2005
If My.Computer.FileSystem.DirectoryExists("c:\123") Then
MsgBox("文件夹存在")
Else
MsgBox("文件夹不存在")
End If
VB6
If Dir("c:\123",vbDirectory) = "" Then
MsgBox("文件夹不存在")
Else
MsgBox("文件夹存在")
End If本回答被网友采纳
第2个回答  2013-06-27
用dir函数来进行判断

if dir("c:\123")<>""
then
msgbox "文件存在"
else
msgbox "文件不存在"
end if

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网