vb获得文件地址的方法

来源：百度知道 编辑：UC知道 时间：2024/06/05 02:25:13
窗体上有text1(不可编辑)和command1和command2
1.当运行时,点击command1,打开一个像系统"打开"的对话框,从里面选择一个文件(可以是.exe或.txt等可执行的文件,不过不用可以编辑过滤代码)
2.点"打开"对话框上的确定后,在text1中就会显示刚才选中文件的地址(例如:"c:\****\***\***.exe").
3.然后再点击command2,command2会按照text1.text中显示的文件路径,启动该程序(如启动***.exe)

我VB刚入点门,望各位高手帮忙啊,希望重点部分能有注释谢谢了

'在窗体上加入你所说的控件，然后复制下面代码，运行后先点击command1选择文件，然后点击command2运行文件即可。

Option Explicit
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 oDLG
Set oDLG = CreateObject("MSComDlg.CommonDialog")
With oDLG
.DialogTitle = "打开文件"
.Filter = "所有文件|*.*"
.MaxFileSize = 255
.ShowOpen
If .FileName <> "" Then
Text1.Text = .FileName
End If
End With
Set oDLG = Nothing

End Sub

Private Sub Command2_Click()
ShellExecute Me.hwnd, vbNullString, Text1.Text, vbNullString, vbNullString, 1
End Sub

介绍一个最简单，又最不保险的方法