Dir语句在VB中有什么用?

简单讲，就是搜索文件咯
f=dir("D:\1.txt")
如果1.txt存在，则f="1.txt"
如果1.txt不存在，则f=""

也可以用通配符*和?
如D盘根目录下存在
1.txt
12.txt
123.txt
则
f=dir("D:\?.txt") 'f=1.txt
f=dir("D:\*2.txt") 'f=12.txt
f=dir("D:\???.txt")'f=123.txt

如果要搜索该目录下的全部文件则
f=dir("D:\*")
do while f<>""
' f为文件名
f=dir '不带参数，则会搜索下一个文件
loop

dir用来查找文件.

使用dir
Option Explicit
Dim filesearch As String
Dim findflag As Boolean

' 清空搜索结果
Private Sub clrcmd_Click()
lstfiles.Clear
End Sub

' 开始查找文件
Private Sub cmdgo_Click()
Dim starttime As Single
Dim i As Integer
Dim Add As Boolean

lstfiles.Clear '查找文件之前先清空结果
lstdirs.Clear
findflag = True '设置查找标志