五笔打字通主页
VB判断盘符是否存在,以及用VB来判断文件或文件夹是否存在。
用VB来判断盘符是否存在,以及来判断文件或文件夹是否存在都可以用DIR函数来判断。
1.判断F盘是否存在于电脑中的VB代码,在窗体建一个按钮,代码如下
Private Sub Command1_Click()
If Dir("F:\", vbDirectory) <> "" Then
MsgBox "此盘符存在。"
Else
MsgBox "此盘符不存在!"
End If
End Sub
2.判断电脑是否存在一个文件夹,文件夹的地址是:C:\aaa\bbb\
Private Sub Command1_Click()
If Dir("C:\aaa\bbb\", vbDirectory) <> "" Then
MsgBox "这个文件夹存在。"
Else
MsgBox "这个文件夹不存在!"
End If
End Sub
3.判断 C:\aaa\bbb\ 这个文件夹里是否有一个文件名叫 a.txt 的文件,VB源码如下:
Private Sub Command1_Click()
If Dir("C:\aaa\bbb\a.txt") <> "" Then
MsgBox "此文件存在。"
Else
MsgBox "此文件不存在!"
End If
End Sub
来源:济亨网
本文链接:http://wb98.com/post/168.html