① 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 "錯誤的文件夾路徑"
