vb6.0如何打开指定文件夹里的exe文件，例如C:\软件\.exe不知道文件名只知道是exe文件。

Question

vb6.0如何打开指定文件夹里的exe文件，例如C:\软件\.exe不知道文件名只知道是exe文件。

Answer 1

Dim r As String
r = Dir("C:\软件\*.exe")
shell "C:\软件\"+r
以上代码只能用于该文件夹中只有一个EXE文件时。

Answer 2

该路径下所有的exe都将被打开~一个很简单的方法 借助file控件的办法~添加一个 按钮 一个filelistbox dirlistbox drivelistbox 代码如下
Private Sub Command1_Click()
For i = 0 To File1.ListCount - 1
If Right(File1.List(i), 4) = ".exe" Or Right(File1.List(i), 4) = ".EXE" Then Shell (File1.Path & "\" & File1.List(i))
Next i
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

也可以只添加一个按钮 一个fileListbox和一个text 不过得自己把路径卸载text里
Private Sub Command1_Click()
File1.Path = Text1
For i = 0 To File1.ListCount - 1
If Right(File1.List(i), 4) = ".exe" Or Right(File1.List(i), 4) = ".EXE" Then Shell (File1.Path & "\" & File1.List(i))
Next i
End Sub

Answer 3

shell ( "路径\文件名")本回答被提问者采纳

Answer 4

shell("C:\软件\*.exe")

Answer 5

你是指用VB打开EXE文件是吗？还是在你编写程序的时候用语句打开？