怎样用CommonDialog打开文本文件??

[feng1net]

在用了CommonDialog的ShowOpen后可以遍历整个磁盘,但如何打开以选中的文本文件呢??
选中的非文本文件有该如何打开那??
请教大家!

[射天狼]

Dim strTmp As String

Open CommonDialog1.FileName For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1

MsgBox strTmp

CommonDialog只是提供给程序员一个遍历磁盘文件的接口,然后返回文件名及路径,至于文件要干什么,怎么打开,得自己写~~

[feng1net]

StrConv(InputB(LOF(1), #1), vbUnicode)
这个函数是作什么用的??我这里没有MSDN,而且网速也不算快,麻烦请解释一下:)
看起来好像是返回文件名存入strTmp中.但我要是想打开那文件呢?

[feng1net]

是不是在得到文件名后判断它的扩展名??然后调用对应的程序操作它??这样是不是有点麻烦?
现在我要使用Windows下的NotePad.exe打开一个文本文件呢??
该如何写呢??

[射天狼]

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()
ShellExecute Me.hwnd, "open", CommonDialog1.FileName, vbNullString, vbNullString, 1
End Sub

[trite]

CommonDialog1.FileName 返回的是完整的路径及文件名。可以根据需要对该文件操作。