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

来源：百度知道 编辑：UC知道 时间：2024/07/08 17:32:03
什么样的VB代码能在双击文件夹时文件夹打开而自己的文件打开？
就是自己做一个小软件在双击某个制定的文件夹时先打开自己做的软件而文件夹不打开。然后按一下按钮什么样的代码可以打开这个文件夹？

先创建个文件夹 名为“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 DeFolde