1樓：匿名使用者
shell "explorer.exe " & "e:\lao\" & text1.text
當然你也可以帶上視窗引數，比如最大化並有焦點
shell "explorer.exe " & "e:\www\" & text1.text, vbmaximizedfocus
2樓：匿名使用者
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 r as long
r = shellexecute(0, "open", "c:\", 0, 0, 1)
end sub
'上面的c:\ 就是你需要制定的路徑
vb 如何通過一個檔案的全路徑獲得該檔案所在資料夾
3樓：匿名使用者
'編寫函式，獲取
private function getlujin(byval a as string) as string
dim i as long
for i = len(a) to 1 step -1if mid(a,i,1) = "\" then '獲取最後一個"\"位置
getlujin = left(a,i-1) '函式返回最後一個"\"前面的東西
exit function '獲取之後，函式沒什麼事了，退出end if
next i
end function
4樓：涐吢銥舊囿儚
private sub command1_click()dim i&, s$
s = "d:\123\123\asd\123.txt"
i = instrrev(s, "\")
if (i = 3) then
s = left$(s, i)
else
s = left$(s, i - 1)
end if
msgbox "路徑為：" & s, 32end sub
5樓：匿名使用者
dim s as string
dim i
s="d:\123\123\asd\123.txt"
i=instrrev(s,"\") ''最右側 \ 字元位置
s =left$(s, i-1) ''s即是路徑（資料夾）d:\123\123\asd
debug.print s ''顯示 d:\123\123\asd
如何用vb開啟動態路徑中的檔案
6樓：嘻嘻傻de可愛
懸賞分：10 - 離問題結束還有 14 天 0 小時我想做一個vb程式，在窗體中新增一個文字框和一個命令按鈕文字框用來輸入要開啟檔案的路徑，當單擊命令按鈕時就會開啟文字框中輸入路徑中的檔案，即單擊命令按鈕開啟文字框指定 的檔案
另外還想請教一下，能不能將vb中的定義的變數用到cmd命令中去，感謝各位大俠賜教，謝謝！！！
問題補充：非常感謝各位 的回答,
謝謝二樓的回答,我還想請問一下"shell text1.text, vbnormalfocus"中的"vbnormalfocus"是什麼意思?
7樓：
新增commondialog1、label1
**如下：
8樓：紅衣老大之一
將vb中的定義的變數用到cmd命令中 從來沒聽說過
至於開啟檔案 你搜尋 shell 用法 即可
如何隱藏資料夾選項，如何開啟隱藏資料夾
我 是sxs.exe 病毒感染的吧。你的病毒殺掉了嗎？建議先防毒。然後執行登錄檔 regedit hkey local machine software microsoft windows currentversion explorer advanced folder hidden showall，...
關於個別資料夾無法開啟的問題，資料夾無法開啟或刪除 提示為引用了一個不可用的位置
現象 部分資料夾變成了0kb，無法開啟 複製 刪除，顯示無權訪問。造成這種現象的前提 1 資料夾是在ntfs檔案系統下 2 重灌過xp系統。原因 重灌後，使用者的安全 id 已更改，不再與無法開啟的資料夾的所有者的安全 id 相符。解決方法 1 我的電腦 工具 資料夾選項 檢視，清除 使用簡單檔案共...
資料夾加密精靈過期後怎樣開啟加密的資料夾
蒽，不知道你用的是哪款資料夾加密精靈。下面我可以給你說一下我用的怎麼解密。這個時候通常精靈會提醒你資料夾的路徑，通常右鍵單擊它，然後選擇解密 還原就可以了。如果你不小心刪掉了隱藏資料夾的列表，可以單擊輔助工區的 高階 的 重建隱藏列表 就可以了。你可以試一試，看看是否可行。如果不行的話，我可以幫你找...