1.如何实现双击某一.txt文件，然后就可以打开它?

Question

Shell "notepad.exe " & sFullFileName,VbNormalFocus

Answer 1

shell "rundll32.exe shell32.dll,OpenAs_RunDLL c:\a\a.txt""

Answer 2

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    Dim lngResult As Long
    Dim strFileName As String    strFileName = "C:\......\Test.txt"
    lngResult = ShellExecute(0, "open", strFileName, "", "", 1)

Answer 3

 不用代码直接用dblclick事件即可。

Answer 4

foolishtiger(吴文智):你的answer很正确，谢谢。麻烦帮看一下
http://www.csdn.net/expert/topic/422/422618.shtm
ok?