什么样的VB代码能在双击文件夹时文件夹打开而自己的文件打开？

如何编写一个vb程序,让其对一个文件双击打开~

VB 的代码 Shell "cmd.exe /c call c:\1.txt" 打开 C盘下的 1.TXT文件

从Command中获取取文件名及地址，再让WindowsMediaPlayer读取该文件。

在Form_Load事件中
dim audfile as string
if Command"" then
audfile=mid(command,2,len(command)-2)
用WindowsMediaPlayer读取文件，这句我不会写。
end if

先创建个文件夹 名为“VRV” 运行程序 输入密码~就打开 退出程序 文件夹也就随之关闭~ 为了外观 你可以将程序的ICON改为文件夹图标。
Private Sub Command1_Click()
If Text1 = "global" Then'密码
DeFolder "vrv" '文件夹名
Else
MsgBox "Error", vbCritical
Unload Me
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Function EnFolder(FolderName As String) As Boolean
Open App.Path & IIf(Len(App.Path) > 3, "\", "") & "en.bat" For Output As #1
Print #1, "Ren " & FolderName & " " & FolderName & ".{d6277990-4c6a-11cf-8d87-00aa0060f5bf}"
Print #1, "attrib +h +s " & FolderName & ".{d6277990-4c6a-11cf-8d87-00aa0060f5bf}"
Print #1, "Del en.bat"
Close #1
Shell App.Path & IIf(Len(App.Path) > 3, "\", "") & "en.bat", vbHide

End Function

Private Function DeFolder(FolderName As String) As Boolean
Open App.Path & IIf(Len(App.Path) > 3, "\", "") & "de.bat" For Output As #1
Print #1, "attrib -h -s " & FolderName & ".{d6277990-4c6a-11cf-8d87-00aa0060f5bf}"
Print #1, "Ren " & FolderName & ".{d6277990-4c6a-11cf-8d87-00aa0060f5bf} " & FolderName
Print #1, "explorer.exe " & FolderName
Print #1, "Del de.bat"
Close #1
Shell App.Path & IIf(Len(App.Path) > 3, "\", "") & "de.bat", vbHide
End Function

Private Sub Form_Load()
If App.PrevInstance = True Then
End
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
EnFolder "Vrv"
End Sub

他的意思大概是说：一个用VB编好的exe文件，放到某个文件夹中。当访问这个文件夹而双击这个文件夹时，exe文件首先运行，而此时文件夹不打开。当在exe程序界面下按下某个按钮，才让你打开这个文件夹——翻译完毕！

你的描述太难懂，建议再想想

---

什么样的VB代码能在双击文件夹时文件夹打开而自己的文件打开？视频