Question

vb 搜索一个指定文件夹里的所有内容里的文件,如果存在该文件,则打开他

vb 搜索一个指定文件夹里的所有内容里的文件,如果存在该文件,则打开他
请大哥们不要复制东西过来,谢谢.

Answer 1

Sub
On Error GoTo MyErr
Dim filenames As String
filenames = Dir(路径, vbNormal + vbDirectory)
Do While filenames <> ""
Debug.Print filename
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
Loop
MyErr:
Exit Sub
End Sub
Private Sub Command1_Click()
寻找我的文件 "C:\", "2.txt"
End Sub

Answer 2

可执行文件的打开与非可执行文件的打开是不一样的
WINDOWS自带的文件类型的打开与其他的是不一样的
谁知道你要打开的是啥类型
if dir("c:\123.exe")<>"" then shell "c:\123.exe"
if dir("c:\123.txt")<>"" then shell "NotePad.exe c:\123.txt"
if dir("c:\123.某类型")<>"" then shell "某类型打开的exe文件的路径和名称 c:\123.123.某类型"
后两个SHELL里面有空格

追问

再问下，如何全盘搜索某一个文件名？

追答

一事一议，这样谁能看到你的新问题啊

Answer 3

if dir("c:\xxxx.txt") > 0 then
存在...这里写打开文本的代码
end if