VB怎么实现在文本框输入文件名“文件1”，点击“打开”按钮，就调用“程序1”打开D:\下的“文件1”

发布网友 发布时间：2022-04-24 21:43

我来回答

共3个回答

热心网友 时间：2023-10-12 02:20

Private Sub Command1_Click()
'可以自行加入判断程序1和文件1是否存在的语句,如下:
'If Dir(app.path & "程序1.exe")="" or Dir("D:\" & Trim(Text1.Text))="" Then Msgbox "文件不存在!"
Shell "程序1.exe " & Trim(Text1.text),vbNormal
End Sub

热心网友 时间：2023-10-12 02:20

Private Sub File1_Click()
Open File1.Path & "\" & File1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, temp
str1 = str1 & temp & vbCrLf
Loop
Close #1
Text1.Text = str1

End Sub

热心网友 时间：2023-10-12 02:21

“文件1”，是什么格式的文件？打开后显示出来吗？
比如说是个文本文件，打开后直接读出来显示在文本框里。
另外，“文件1”的路径就是"D:\" 吗？