请帮帮我吧我现在使用很急

tanhatohti 发布于 2012-10-10 20:48， 373 次点击

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

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

4 回复

wube2012-10-11 01:15

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

曙光电子2012-10-12 21:51

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

只有本站会员才能查看附件，请登录

zhujianlin2012-10-15 10:54

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

爱神的箭2012-10-15 14:36

网上找的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

请 帮帮我吧 我现在使用 很急

请帮帮我吧我现在使用很急