vb里的dir怎么用 ?

1）Dir 函数，返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。

Dir 函数示例：

本示例使用 Dir 函数来检查某些文件或目录是否存在。在 Macintosh

计算机上，默认驱动器名称是 “HD” ，并且路径部分由冒号取代反斜线隔开。而且 Microsoft Windows 的通配符在 Mac

中可以作为有效字符出现在文件名中。也可以使用 MacID 函数来指定文件组。

Dim MyFile, MyPath, MyName

' 返回“WIN.INI” （如果该文件存在）。

MyFile = Dir("C:\WINDOWS\WIN.ini")   

' 返回带指定扩展名的文件名。如果超过一个 *.ini 文件存在，

' 函数将返回按条件第一个找到的文件名。

MyFile = Dir("C:\WINDOWS\*.ini")

' 若第二次调用 Dir 函数，但不带任何参数，则函数将返回同一目录下的下一个 *.ini 文件。

MyFile = Dir

' 返回找到的第一个隐式 *.TXT 文件。

MyFile = Dir("*.TXT", vbHidden)

' 显示 C:\ 目录下的名称。

MyPath = "c:\"   ' 指定路径。

MyName = Dir(MyPath, vbDirectory)   ' 找寻第一项。

Do While MyName <> ""   ' 开始循环。

   ' 跳过当前的目录及上层目录。

   If MyName <> "." And MyName <> ".." Then

      ' 使用位比较来确定 MyName 代表一目录。

      If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then

         Debug.Print MyName   ' 如果它是一个目录，将其名称显示出来。

      End If

   End If

   MyName = Dir   ' 查找下一个目录。

Loop

2）Dir控件（DirListBox 控件），在运行时，DirListBox

控件显示目录和路径。这个控件可以显示分层的目录列表。例如，可以创建对话框，在所有可用目录中，从文件列表打开一个文件。

Change 事件，DirListBox － 改变所选择的目录。该事件在双击一个新的目录或通过代码改变 Path 属性的设置时发生。

应用实例：

Private Sub Dir1_Change()

    File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

    Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

    Dim i As Long

    Debug.Print "目录夹内存在" & File1.ListCount & "个文件。"

End Sub

一般用

Len(dir("C:\001.xls"))来判断一个文件是否存在

返回的值如果大于0

则001.xls这个文件存在

否则不存在

---