dir用来查找文件 vb2007-04-24 11:20简单讲，就是搜索文件咯 
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 '设置查找标志 
stopcmd.Enabled = True '设置停止查找按钮为可用 
clrcmd.Enabled = False '设置清空结果按钮为不可用 
starttime = Timer '记录开始查找时刻 
filesearch = Combo1.Text 
' 将查找文件加入到组合框中 
For i = 0 To Combo1.ListCount - 1 
If Combo1.List(i) <> Combo1.Text Then 
Add = True 
Else 
Add = False 
End If 
Next 
If Add = True Then 
Combo1.AddItem (Combo1.Text) 
End If 
lstdirs.AddItem (Drive1.Drive & "\") 
' 执行查找文件 
Do 
status.Caption = "Searching . . . " & lstdirs.List(0) 
' 调用函数 
findfilesdir lstdirs.List(0) 
' 从目录列表中移除 
lstdirs.RemoveItem 0 
' 中途退出查找 
If findflag = False Then 
Exit Do 
End If 
Loop Until lstdirs.ListCount = 0 
stopcmd.Enabled = False 
clrcmd.Enabled = True 

' 显示查找文件的信息 
status.Caption = "用时" & Timer - starttime & "秒 " & "找到" & lstfiles.ListCount & "个文件" 
End Sub 

' 用来查找文件的函数 
Public Sub findfilesdir(DirPath As String) 
Dim filestring As String 
DirPath = Trim(DirPath) 

If Right(DirPath, 1) <> "\" Then 
DirPath = DirPath & "\" 
End If 
' 使用Dir函数获得DirPath目录下的文件或目录 
filestring = Dir(DirPath & "*.*", vbArchive Or vbHidden Or vbSystem Or vbDirectory) 
Do 
DoEvents '转让控制权，以便让操作系统处理其它的事件 
If filestring = "" Then 
Exit Do 
Else 
If (GetAttr(DirPath & filestring) And vbDirectory) Then 
If Left(filestring, 1) <> "." And Left(filestring, 2) <> ".." Then 
lstdirs.AddItem DirPath & filestring & "\" 
End If 
Else 
' 比较以确定是否是要查找的文件 
If (filestring Like filesearch) Then 
lstfiles.AddItem DirPath & filestring 
End If 
End If 
End If 
filestring = Dir ' 返回其他文件名 
Loop 
End Sub 

' 结束退出 
Private Sub quitcmd_Click() 
Unload Me 
End 
End Sub 

' 停止查找 
Private Sub stopcmd_Click() 
findflag = False 
stopcmd.Enabled = False 
End Sub 

Private Sub Form_Load() 
Combo1.AddItem ("*.*") 
End Sub