vb打开一个文件夹
① VB 单击按钮打开1,2这个文件夹
不知道你说的打开文件夹是什么意思，如果是显示我的电脑，并把那个文件夹内容显示出来，那么就用
Shell
"explorer.exe
E:\XXXXXX"
如果是显示文件夹内容，让用户选择一个文件，那么可以用VB自带的显示文件的控件
② vb 打开文件夹
这个可以打开所在目录的文件夹
Shell
"explorer.exe
"
&
Chr(34)
&
app.Path
&
Chr(34),
vbNormalFocus
这个可以打开任意路径的文件夹
Shell
"explorer.exe
"
&
Chr(34)
&
"你要打开的文件夹路径"
&
Chr(34),
_
vbNormalFocus
③ 在vb中如何利用按钮打开一个文件夹中的一个文件
如果是exe文件的话把下面一段加入你的程序:
sub command1_click()
shell "<你想打开的文件的目录及名字>"
end sub
如果是txt文件的话把下面一段加入你的程序:
sub command1_click()
shell "C:\WINDOWS\notepad.exe <你想打开的文件的目录及名字>"
end sub
如果是其他格式的话在shell语句中先输入用什么exe打开此文件,再输入一个空格,再输入想打开的文件的目录及名字。
示范：
sub command1_click()
shell "C:\a.exe"
end sub
sub command2_click()
shell "C:\WINDOWS\notepad.exe C:\a.txt"
end sub
sub command3_click()
shell "C:\Program Files\Adobe\acrobt\acropdf.exe C:\a.pdf"
end sub
④ vb 打开某一具体的文件夹
shell "cmd.exe /C start" &"D:\Program Files\JJ比赛"
可以打开运行对话框中任何内容
Shell 函数
执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。
语法
Shell(pathname[,windowstyle])
Shell 函数的语法含有下面这些命名参数：
部分 描述
pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。
Windowstyle 可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。
windowstyle 命名参数有以下这些值：
常量 值 描述
vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。
VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。
VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。
VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。
VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。
说明
如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。任务 ID 是一个唯一的数值，用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序，则会产生错误。
注意 缺省情况下，Shell 函数是以异步方式来执行其它程序的。也就是说，用 Shell 启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句。
⑤ 如何用vb打开某个文件夹
sub command1_click()
dim mypath
mypath = inputbox("请输入文件夹的完整路径")
shell "explorer.exe " & chr(34) & mypath & chr(34) ,vbnormalfocus
end sub
⑥ VB中打开文件夹
Private Function OpenPath(strPath As String) As Long
strPath = Chr(34) & Chr(34) & " " & Chr(34) & strPath & Chr(34)
OpenPath = Shell("cmd.exe /c Start " & strPath, vbHide)
End Function
上面是我写的一个函数，会用吧？
打开路径：OpenPath "C:\Program Files"
打开文件：OpenPath "D:\123\Excel.xls"
⑦ vb打开文件夹
将该语句写成函表达式即 a=ShellExecute(Me.hwnd, "Open", "文件夹路径", "", App.Path, 1) 执行后会有一个返回值，再根据返回值判断有没有成功打开文件夹好像是返回0表示执行成功所以再添加如下代码if a <>0 then msgbox "错误的文件夹路径"