『壹』 用VB打開文件夾
需要調用一個函數
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
Private Sub Command1_Click()
Dim FileName As String
FileName = "C:\1"
ShellExecute Me.hwnd, vbNullString, FileName, vbNullString, vbNullString, 1
End Sub
『貳』 vb如何實現打開隱藏的文件夾
摘要 系統不是自帶了隱藏功能的，你可以先更改你所要隱藏文件夾的屬性,選中隱藏選項!就可以隱藏了
『叄』 VB2010中怎樣打開文件夾
在VB.NET里使用 OpenFileDialog 組件。
在工具箱的「對話框」組里，雙擊 OpenFileDialog，添加組件成功。
添加一個按鈕，代碼只要2行。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.Filter = "所有文件 (*.*)| *.*"
OpenFileDialog1.ShowDialog()
End Sub
End Class
『肆』 如何用vb打開某個文件夾
sub command1_click()
dim mypath
mypath = inputbox("請輸入文件夾的完整路徑")
shell "explorer.exe " & chr(34) & mypath & chr(34) ,vbnormalfocus
end sub
『伍』 VB程序如何打開自己所在的文件夾下的子文件夾
添加一個按鈕，caption為"打開當前文件夾"，在click事件中寫上：
shell
"explorer
"
&
app.path
&
"\"
就可以了。
『陸』 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中如何打開文件夾內目錄文件夾內的程序
第一式：用UltraEdit等16進制編輯器直接找到序列號。
運行UltraEdit，用它打開光碟根目錄下的SETUP.EXE，然後點擊菜單上的「搜索」－>「查找」，在彈出的對話框「查找什麼」欄中填入「請輸入序列號」，注意要將多選框「查找ASCII字元」勾選上，回車，在找到的「請輸入序列號」後面，接下去的數字就是序列號了。這一式直取中宮(序列號)，厲害！
第二式：用IsoBuster等光碟刻錄軟體直接去瀏覽光碟上的隱藏文件。
運行IsoBuster，選擇加密盤所在的光碟機，點擊選擇欄旁邊的刷新按鈕，此時它就會讀取光碟機中的文件，這時你就會發現在左邊的文件瀏覽框中多出一個文件夾，那裡面就是你真正想要的文件。這時你就可以運行或復制這些文件了。這一式一目瞭然，清楚！
第三式：要用到虛擬光碟機軟體(如Vcdrom，虛擬光碟機2000)和16進制編輯器(如UltraEdit，WinHex)。
方法是：
1.
用虛擬光碟機軟體把加密光碟做成虛擬光碟文件，進度到1%的時候就可以按Ctrl+Alt+Del組合鍵強行終止虛擬光碟機程序的運行。
2.
用16進制編輯器打開只做了%1的光碟文件(後綴名為vcd或fcd的文件)，在編輯窗口中上下查找任意看得見的目錄名或文件名(由於文件不大很容易找到的)，在該位置的上下就可以看見隱含的目錄名或文件名了(一般是目錄名)。
3.
在MS-D
O
S窗口下用CD命令進入看到的那個目錄，再Dir一下就可以看見你想要的了，此時是運行還是復制文件就隨你了。這一式左右互搏，再厲害的加密盤也在所難逃。
第四式：在光碟機所在盤符下執行：
d
r2\filelist.exe即可運行瀏覽程序(filelist.exe為隱藏的瀏覽光碟的程序)。
用這種方法對付好多光碟都有效，但我不敢說100%有效，為什麼？因為我不可能把所有的光碟都試過呀！這一式不需注冊碼，不需要軟體，時尚之選！
第五式：利用File
Monitor對付隱藏目錄的加密光碟。
1.
運行File
Monitor的主文件FileMon，在「Options」內將「Capture
Events」打上勾；
2.
運行DDR跳舞碟，當選擇的舞曲已調入內存後即可以退出DDR；
3.
回到FileMon，看到什麼了？對！所有的文件調用均被記錄下來啦！現在再將「Capture
Events」前面的勾去掉，免得它仍舊不斷的增加記錄，然後來看看記錄的都是什麼。以下是截取的部分內容：
Explorer
Find這個字眼被禁止！
E:\DDR99.EXE
SUCCESS
Explorer
Find這個字眼被禁止！
E:\DDR99.EXE
SUCCESS
…………
………
…………………
…………
………
…………………
Ddr99
Find這個字眼被禁止！
E:\BGM\S.WAV
NOMORE
Ddr99
Find這個字眼被禁止！
E:\BGM\S.WAV
NOMORE
…………
………
…………………
…………
………
…………………
Ddr99
這個字眼被禁止！
E:\BGM\TRACK_01.WAV
SUCCESS
Ddr99
Seek
E:\BGM\TRACK_01.WAV
SUCCESS
一切顯而易見了，原來新版的DDR
跳舞碟其加密子目錄為「BGM」！好啦，可以將喜歡的曲目拷貝下來後去退碟了。這一式天羅地網，讓隱藏目錄無處藏身！
『捌』 vb 打開文件夾
這個可以打開所在目錄的文件夾
Shell
"explorer.exe
"
&
Chr(34)
&
app.Path
&
Chr(34),
vbNormalFocus
這個可以打開任意路徑的文件夾
Shell
"explorer.exe
"
&
Chr(34)
&
"你要打開的文件夾路徑"
&
Chr(34),
_
vbNormalFocus
『玖』 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中如何利用按鈕打開一個文件夾中的一個文件
如果是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