VB判断盘符是否存在，以及用VB来判断文件或文件夹是否存在。

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://wb86.com/post/168.html