Question

VB搜索某个文件并打开

我是这样想的
点击command，然后出现一个输入框，然后比如输入“a.txt”就能打开C:\Users\lc\Desktop\VB课题\新建文件夹这个路径下的的这个txt文件。

然后输入“b.txt”就能打开这个txt文件。

但是如果我用
Dim i As Integer
Dim x As String
Private Sub Command1_Click()
Dim H As Boolean
x = Val(InputBox("路径为="))
H = False
For i = 0 To File1.ListCount - 1
If File1.List(i) = x Then
H = True
Exit For
End If
Next i
If H = True Then
Shell "notepad.exe " & File1.Path & "\" & File1.List(i), vbNormalFocus
Else
MsgBox "没有可以打开的文件"
End If
End Sub
好像不能成功，求大神看看出什么问题，要是修改不了就重编一个吧，小白一个，求简短点。

Answer 1

Dim i As Integer
Dim x As String
Private Sub Command1_Click()
Dim H As Boolean
x = LCase(InputBox("路径为=")) '这里不用val ，这是反数值。对话框应提示“输入文件名”，而不是路径。
    H = False
    For i = 0 To File1.ListCount - 1
        If LCase(File1.List(i)) = x Then '比较时一律改为小写或大写
            H = True
            Exit For
        End If
    Next i
    If H = True Then
        Shell "notepad.exe " & File1.Path & "\" & File1.List(i), vbNormalFocus
    Else
        MsgBox "没有可以打开的文件"
    End If
End Sub

追问

那如果我要做的是"a.jpg"的话，
Shell "notepad.exe " & File1.Path & "\" & File1.List(i), vbNormalFocus
这句话应该怎么改

追答

图片文件要用图像软件打开了，你的意思用相应文件类型的默认程序来打开吗？

追问

就是不懂要用什么图像软件，不懂怎么拼写。

追答

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
    Dim i As Integer
    Dim x As String
    Private Sub Command1_Click()
        Dim H As Boolean
        x = LCase(InputBox("路径为=")) '这里不用val ，这是反数值。对话框应提示“输入文件名”，而不是路径。
        H = False
        For i = 0 To File1.ListCount - 1
            If LCase(File1.List(i)) = x Then '比较时一律改为小写或大写
                H = True
                Exit For
            End If
        Next i
        If H = True Then
            Dim File As String
            File = File1.Path & "\" & File1.List(i)
            ShellExecute Me.hwnd, "open", File, vbNullString, vbNullString, 5
        Else
            MsgBox "没有可以打开的文件"
        End If
    End Sub
End Sub

这没试，如不行再追问。

追问

可以了，谢谢。那能帮我解释一下每个语句的意思和作用吗，谢谢了！！

追答

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 'Api函数，用默认程序打开文件
     Dim i As Integer
    Dim x As String '在声明区定义模块极变量
    Private Sub Command1_Click() '按钮事件
        Dim H As Boolean
        x = LCase(InputBox("路径为="))  '打开输入框输入文件名
        For i = 0 To File1.ListCount - 1 '在文件列表中循环匹配相同文件
            If LCase(File1.List(i)) = x Then 
                H = True '如有相同文件名设置标记，表示磁盘中存在该文件，
                Exit For '跳出循环
            End If
        Next i
        If H = True Then ’如文件存在打开文件
            Dim File As String
            File = File1.Path & "\" & File1.List(i) '合成路径文件全名
            ShellExecute Me.hwnd, "open", File, vbNullString, vbNullString, 5 '打开文件
        Else
            MsgBox "没有可以打开的文件"
        End If
End Sub

‘提点建议，如果纯粹是检测文件是否存在，可以用dir() 函数