Question

怎样用VB搜索一个文件

全盘搜索一个名为“1.txt”的文件是否存在，并找到它的路径或打开它
老师说用最少的代码做到
注意是“或打开”
就是说，你可以选择在代码中，是找它的路径还是打开它

只要用最少的代码就行了

我初学VB，帮帮忙吧！！

Answer 1

Sub 寻找我的文件(路径, 文件名)
On Error GoTo MyErr
Dim filenames As String
filenames = Dir(路径, vbNormal + vbDirectory)
Do While filenames <> ""
Debug.Print filenames

If filenames = 文件名 Then
If MsgBox("您要打开还是要查看该文件?", vbOKCancel + vbQuestion, "找到文件") = vbOK Then
Shell "notepad " & 路径 & filenames, vbNormalFocus
Else
End If
End If
If GetAttr(路径 & filenames) = vbDirectory And filenames <> "." And filenames <> ".." Then
'MsgBox filenames
寻找我的文件 路径 & filenames & "\", 文件名
End If

filenames = Dir '再次调用dir函数,此时可以不带参数
Loop
MyErr:
Exit Sub
End Sub

Private Sub Command1_Click()
寻找我的文件 "C:\", "1.txt"
End Sub