VB程序如何打开文件

Question

请高手教我怎么用VB打开文件？
我用了open "filename" for input as#1这个命令，但似乎只能在VB程序内部打开文件，我看不到任何东西出来；比如我想通过VB来打开一个文件进行浏览，应该如何做？？？？

Answer 1

调用API的功能实现，
因相应的API较复杂，不太好理解，我用子程序对它做了封装。
实际使用过程中你将下面这段代码Copy到程序模块中，然后调用SubOpenFile子程序就行了。

'注意在引用该FSO功能时先引用 Microsoft Scripting Runtime
Public ObjFso As New FileSystemObject

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

Public Sub SubOpenFile(ByVal FileSaveName As String, ByVal StrFrmName As Form)

'打开文件
'输入:sFileName 待打开文件的全路径加上文件名,如 "F:\VB\RunExe\Module1.bas"
'输入:调用该子程序的窗体名称

If Not ObjFso.FileExists(FileSaveName) Then
MsgBox ("没有找到要打开的文件")
Exit Sub
End If

sCorrectPath = ObjFso.GetParentFolderName(FileSaveName)
sFileName = ObjFso.GetFileName(FileSaveName)

'输入:调用该子程序的窗体名称
lHwnd = StrFrmName.hwnd
'lShellFile = shellExecute(lHwnd, "open", FileSaveName, vbNullString, sCorrectPath, SW_SHOWNORMAL)
lShellFile = shellExecute(lHwnd, "open", FileSaveName, vbNullString, sCorrectPath, 5)

'错误处理
If lShellFile > 32 Then
Exit Sub
Else
Select Case lShellFile
Case 2
If Right(sFileName, 3) <> "htm" Then
MsgBox "File Not Found.", vbCritical + vbOKOnly, "X-File:"
End If
Exit Sub
Case 3
MsgBox "Path not Found.", vbCritical + vbOKOnly, "X-File:"
Exit Sub
Case 5
MsgBox "Access denied.", vbCritical + vbOKOnly, "X-File:"
Exit Sub
Case 8
MsgBox "Out of Memory.", vbCritical + vbOKOnly, "X-File:"
Exit Sub

Case 32
MsgBox "Shell32.dll not Found.", vbCritical + vbOKOnly, "X-File:"
Exit Sub
End Select
End If

End Sub

Answer 2

打开文件，然后把文件内容读到文本框里显示出来啊

Answer 3

添加一个文本框，和一个按钮，名称默认,然后添加以下代码，运行时点一下按钮。

Private Sub Command1_Click()
Dim filenum As Long
filenum = FreeFile
Open "c:\1.txt" For Input As filenum
Text1.Text = StrConv(InputB$(LOF(filenum), #filenum), vbUnicode)
Close filenum
End Sub

Answer 4

用文件对象不是很简单!