关于VB读取文件夹里的TXT文件后，单击鼠标就可以打开指定的txt.

事业男儿发布于 2012-05-21 16:43， 1571 次点击

Private Sub Form_Activate()
    Dim sFile As String
sFile = Dir("f:\*.txt", 31)
    While sFile <> ""
        Print sFile
        sFile = Dir
    Wend
End Sub
上面是一个关于读取F盘里的txt文件的代码，怎么修改后才可以单击窗体上的某个文件就可以实现打开txt文件呢？

3 回复

wube2012-05-21 18:24

"怎么修改后才可以单击窗体上的某个文件就可以实现打开txt文件呢？"
DriverListBox + DirListBox + FileBox + Shell
.....
OpenDailog
.....
BowerDailog(VB6要自己写) + FileBox + Shell
.....
List Control(MFC的VB6不知道有没有这东西)
.....
Win32 Function
.....
FSO
.....
API
.....
方法太多了...

事业男儿2012-05-22 20:13

还是没有搞懂，麻烦楼上的写一个例子出来，感谢！

wube2012-05-23 00:12

CommonDailog1.ShowOpen
Shell "notepad.exe " & CommonDailog1.FileName,vbNormalFocus

http://topic.