vb遍历文件夹中的所有文件_CATIA二次开发专题贴：用VB来判断盘符是否存在，以及来判断文件或文件夹是否存在...

CATIA二次开发中，经常会用到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 

欢迎推送到看一看。让全民一起VBA。

欢迎加微信交流二次开发。