Question

vb 打开一个文件

谁能 告诉我，怎么 用VB 打开一个文件？
要求 在textbox 输入英文路径后，用button 打开

使用vb6.0代码写
请告诉我所用到的语法 谢谢

Answer 1

VB打开文件有三种方法:
1.如果读取的是文本型文件(用记事本打开没有乱码的)，就是顺序文件读法：
open app.path & "\index.pps" for input as #1
顺便说，app.path是反回当前程序路径的函数，故不能加引号，如果加了，若无其它错误，程序一定会报文件错误，因它找不到 "app.path\index.pps"这样的路径与文件

2.如果打开的是乱码，写什么完全看不懂(不是英文之类的看不懂，是乱),那就是二进制文件，可以用随机文件或二进制读取。
随机读取，如果知道文件数据存放格式/结构才能用：
open app.path & "\index.pps" for random as #1
二进制文件读取：
open app.path & "\index.pps" for binary as #1

但这open只是打开而已，相当于VB程序与文件建立传输通道，怎么读还是自已写代码。
******
这就是没反应的原因：光建立通道不传输，有何用？
******

具体的请自已参考VB的“文件”章节，这里以一个顺序读取文本文件
c:\a.txt(当然扩展名可以不是.txt,只要内容是文本就行),内容是以下文本：
1234567
abcdefg
I am a boy
我很帅
如果以一行一行顺序读出，可以写如下代码(写在form_load()也行)，有注释：

dim y as integer:y=freefile '取得空闲的文件号
dim ReadData as string '用来放读出的数据
open "c:\a.txt" for input as #y '打开文件
do
if eof(y) then exit do '如果读到文件末就退出此循环
line input #y,ReadData '从文件中读出一行并放入ReadData
msgbox readdata '显示读出的数据
loop
close #y '关闭文件

Answer 2

在VB中，事件（Event）是指：由VB预先设置好的、能够被对象识别的动作，如Click（单击）、Load（装入）等。
命令按钮响应Click事件，就是把完成Click事件功能的代码写到Click事件的事件过程中，与事件一一对应。
事件的过程形式如下：
Private Sub 对象_事件名()
…………（事件过程代码）
End Sub

Answer 3

Private Sub Command1_Click()
Rem 注释：这里的Command1可改为其他button(command)名
Shell(Text1.Text)
Rem 注释：Shell：调用函数，详细的去MSDN里查，Text1可改成其他textbox名

Answer 4

以下代码已经经过测试。主要演示了打开和写入操作。
form1中添加text1和command1，粘贴如下代码
Private Sub Command1_Click()
Dim strName As String
strName = App.Path & "\" & Text1.Text & ".txt"
WriteFile (strName)
Call RunFile(strName)
End Sub

'演示后台打开记事本，然后写入字符
Private Sub WriteFile(ByVal FilePath As String)
Open FilePath For Append As #1
Print #1, "这是我用VB写进去的字符"
Close #1
End Sub

'演示打开记事本，并最大化窗口
Private Sub RunFile(ByVal FilePath As String)
Shell "Notepad " & FilePath, vbMaximizedFocus
End Sub

Private Sub Form_Load()
Text1.Text = "在这里输入文件名"
End Sub

Private Sub Text1_Click()
Text1.Text = ""
End Sub
运行后，在vbp所在路径可以看到一个刚刚新建的文本。

追问

我的意思是，在textbox 写了英文路径后， 用Button打开。是打开 那路径的文件

如果是目录就打开目录

追答

你的意思似乎要用对话框。
打开文件的我上面已经说了。
打开目录的你尝试以下代码：
Private Sub Command1_Click()
CommonDialog1.InitDir = Text1.Text
CommonDialog1.ShowOpen
End Sub

Answer 5

如果是exe文件的话
shell “路径"