1樓：匿名使用者
需要新增一個commondialog控制元件。
新增方法：按ctrl+t，在彈出的對話方塊中選擇microsoft common dialog control 6.0，單擊確定，將該控制元件新增到工具箱中，然後將該控制元件畫到窗體上。
設定控制元件名稱為cd。
編譯器執行到cd.action = 1，就會開啟記事本中的「開啟」對話方塊。待使用者選擇一個檔案後，cd的filename屬性就會變為要開啟的檔案的路徑名。
具體**如下：
private sub command1_click()cd.action = 1
text1 = cd.filename
end sub
望樓主採納！！
2樓：匿名使用者
1、新建工程，並新增textbox，commandbutton控制元件。
2、按ctrl+r，在彈出的部件視窗中勾選microsoft common dialog control 6.0，單擊確定，並新增一個commondialog控制元件。
3、在commandbutton中新增以下**：
private sub command1_click()with commondialog1
.dialogtitle = "請選擇檔案"
.filter = "*.*|*.*"
.cancelerror = false
.showopen
text1.text = .filenameend with
end sub
希望這個能幫到你。
3樓：匿名使用者
新增comoon dialog控制元件
vb 如何通過一個檔案的全路徑獲得該檔案所在資料夾
4樓：匿名使用者
'編寫函式，獲取
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
5樓：涐吢銥舊囿儚
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
6樓：匿名使用者
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獲取資料夾路徑
7樓：戶歌那拉昆綸
用api遍歷當前桌面已開啟的子視窗,獲得視窗控制代碼和id,然後通過id獲得該資料夾的路徑,總之一句話,你要實現的功能vb無法做到,api可以
8樓：印駿詩幼儀
做個time
時間定為200毫秒。檢測滑鼠當前位置所在的視窗id。。再判斷視窗裡什麼控制元件能顯示路徑的。。。。獲取路徑。。。
9樓：詩彬費代柔
是vb程式所在的資料夾路徑嗎？還是別的？
10樓：弓天佑憑舒
只說原理
。先建立fso
物件遍歷磁碟
查詢名稱為"baidu「的資料夾
，返回全路徑
vb 瀏覽資料夾獲取資料夾路徑
11樓：
這個是我用vb做的檔案選擇器，仿linux的資源瀏覽器！
12樓：匿名使用者
呵呵， xjnzhidao方法非常好！至於你要實現新建檔案的功能，把xjnzhidao的**作如下更改
：with udtbi
.hwndowner = 0 ' me.hwnd.
lpsztitle = lstrcat(stitle, "").ulflags = bif_returnonlyfsdirsend with
改：with udtbi
.hwndowner = 0 ' me.hwnd.
lpsztitle = lstrcat(stitle, "").ulflags =99'--------------------------這裡是更改的地方
end with
13樓：
commondialog控制元件只能選擇檔案，不能選擇資料夾，用下面的**可以選資料夾：
option explicit
private type browseinfo
hwndowner as long
pidlroot as long
pszdisplayname as long
lpsztitle as long
ulflags as long
lpfncallback as long
lparam as long
iimage as long
end type
const bif_returnonlyfsdirs = 1
const max_path = 260
private declare sub cotaskmemfree lib "ole32.dll" (byval hmem as long)
private declare function lstrcat lib "kernel32" alias "lstrcata" (byval lpstring1 as string, byval lpstring2 as string) as long
private declare function shbrowseforfolder lib "shell32" (lpbi as browseinfo) as long
private declare function shgetpathfromidlist lib "shell32" (byval pidlist as long, byval lpbuffer as string) as long
public function browseforfolder(optional stitle as string = "請選擇資料夾") as string
dim inull as integer, lpidlist as long, lresult as long
dim spath as string, udtbi as browseinfo
with udtbi
.hwndowner = 0 ' me.hwnd
.lpsztitle = lstrcat(stitle, "")
.ulflags = bif_returnonlyfsdirs
end with
lpidlist = shbrowseforfolder(udtbi)
if lpidlist then
spath = string$(max_path, 0)
shgetpathfromidlist lpidlist, spath
cotaskmemfree lpidlist
inull = instr(spath, vbnullchar)
if inull then
spath = left$(spath, inull - 1)
end if
end if
browseforfolder = spath
end function
private sub command1_click()
msgbox browseforfolder()
end sub
VB怎麼獲取或判斷檔案的編碼格式
如果有bom頭，按照bom來存取就可以了，如果沒有，那麼一般按ansi來處理。ms的記事本會進行很多嘗試，判斷有沒有不在ansi範圍的字元。一般txt檔案都是有檔案頭的，無檔案頭的都是按ansi編碼來處理的，可有的utf 8編碼的txt檔案也是沒檔案頭的，如果不判斷就直接讀入就會出現顯示為亂碼。沒有...
vb程式設計中，想要獲取指定資料夾下的資料夾名，例如D X軸下的所有資料夾的名稱，並顯示在textbox中
查詢指定目錄下的資料夾，並顯示在textbox中，需要一個textbox控制元件，開啟multline屬性，每找到一個資料夾，便顯示並換行 strpathtmp d x軸 strnametmp dir strpathtmp,vbdirectory do while strnametmp if str...
vb開啟pdf檔案，vb 開啟PDF檔案
使用shell函式。先用api從登錄檔中讀取adobereader的安裝路徑，在用shell呼叫。 使用windows預設開啟方式開啟 lx深 需要加一個pdf的控制元件。 private declare function shellexecute lib shell32.dll alias she...