我 想 在 text 中 输入 文件名 比如：D:\Program Files   然后 点击 “打开” 按钮  就打开text框中指定的文件打开
   [attach]65396[/attach]
  代码怎么写的？


[ 本帖最后由 tanhatohti 于 2012-10-10 21:16 编辑 ]

https://bbs.bccn.net/thread-382549-1-1.html

打开什么文件?给你个程序参考一下!

你有必要把后缀改为”.bat“。

网上找的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 FileName As String
FileName =text1.text
ShellExecute Me.hwnd, vbNullString, FileName, vbNullString, vbNullString, 1
End Sub