什么样的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程序界面下按下某个按钮，才让你打开这个文件夹——翻译完毕！

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

---

浈江区13162009910： VB实现双击快捷方式时执行一段代码 - ？
东方的长久： VB的事件只能管自家内部的事情,而桌面是公共场所,VB本身的功能管不了那么宽的,必须借助系统的API函数才能实现了.

浈江区13162009910： vb程序如何对一个文件产生相当于鼠标双击后的效果? - ？
东方的长久： Shell ＂Explorer.exe＂ & Chr(34) & 文件地址 & Chr(34),1,0,0 这样Shell调用explorer.exe只要你所指向的文件地址是正确的且在系统中有可用的文件关联就能被正确的打开.如果是.exe ,.bat等会直接被执行.如果是.txt会直接用记事本打开.

浈江区13162009910： 如何在VB里面点击一下按钮,能够直接弹出一个位于同一文件夹内的文本文档? - ？
东方的长久： Private Sub Command1_Click() Dim Filepath AS String Filepath=app.path If Right(Filepath,1)＂\＂ Then Filepath=Filepath & ＂\＂ Filepath=Filepath & ＂文件名.txt＂ Shell notepad Filepath End Sub

浈江区13162009910： 急!如何VB文件列表框双击文件名在文本框中显示文件内容? - ？
东方的长久： 修改file_dblclick如下Private Sub file_dblclick() Dim s$ If Right(File1.Path, 1) = ＂\＂ ThenfName = File1.Path + File1.FileName ElsefName = File1.Path + ＂\＂ + File1.FileName End If Text1.Text = fName Text1.MultiLine = True Open fName For ...

浈江区13162009910： VB编程 编写一个程序,双击后,打开一个文件夹,同时运行一个EXE文件,怎么编写? - ？
东方的长久： Private Sub Form_Load() '打开后运行下面代码后自动结束 Shell ＂cmd.exe /c explorer C:\aa＂, vbMinimizedFocus Shell ＂C:\bb.exe＂, vbMinimizedFocus End End Sub

浈江区13162009910： 在VB中如何实现双击文件时能调用记事本进行编辑此文件 - ？
东方的长久： 双击事件里写Shell ＂c:\windows\notepad.exe ＂ & filename(文件路径名称)

浈江区13162009910： VB编写双击打开文件 - ？
东方的长久： 在编写程序的窗口(这个你应该知道吧?也就是“代码窗口”) 然后你看它的右上角的叉叉的下面,有一个黑色倒三角箭头的,点一下 出来一列东西,选其中的Dbclick,然后编写代码~~~这样的话就是你双击触发你所编写的代码,单击不触发了

浈江区13162009910： vb中怎么实现双击执行当前文件 - ？
东方的长久： Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_DblClick() Shell ＂cmd.exe /c ＂ + IIf(Right$(Dir1.Path, 1) = ＂\＂, Dir1.Path, Dir1.Path + ＂\＂) + File1....

浈江区13162009910： (VB)Filelist双击打开文件 代码怎么写? - ？
东方的长久： 代码如下.============= Const O As String = ＂rundll32 url.dll,FileProtocolHandler ＂＂＂ Private Sub File1_DblClick() Shell O & File1.FileName & ＂＂＂＂, vbNormalFocus End Sub

浈江区13162009910： 如何让编译成exe文件的vb程序一双击就是窗口最大化运行呢? - ？
东方的长久： 令窗体属性WindowState = 2就是最大化;窗体属性icon选择图标,就是你程序图标.