當前位置:首頁 » 文件管理 » commondialog文件夾

commondialog文件夾

發布時間: 2023-05-28 21:04:11

⑴ VB commondialog如何才能選擇一個文件夾,返回其路徑讓我記錄下來

commondialog 似乎做不到這一點,可以調用API實現。

OptionExplicit

"shell32"(lpbiAsBrowseInfo)AsLong
"shell32"(ByValpidListAsLong,ByVallpBufferAsString)AsLong
"ole32.dll"(ByValhMemAsLong)
"kernel32"Alias"lstrcatA"(ByVallpString1AsString,ByVallpString2AsString)AsLong

PrivateTypeBrowseInfo
hWndOwnerAsLong
pIDLRootAsLong
pszDisplayName脊激AsLong
lpszTitleAsLong
ulFlagsAsLong
lpfnCallbackAsLong
lParamAsLong
iImageAsLong
EndType
PrivateConstBIF_RETURNONLYFSDIRS=1
Private枯鄭ConstMAX_PATH=260

'打開Windows的選擇目錄對話框
'hwnd為窗口句柄(通常設為Me.hwnd),Prompt為指示字元串
FunctionShowFolderSelection(ByValhwndAsLong,ByValPromptAsString)AsString

DimiNullAsInteger
DimlpIDListAsLong
DimlResultAsLong
DimsPathAsString
DimudtBIAsBrowseInfo

WithudtBI
.hWndOwner=hwnd
.lpszTitle=lstrcat(Prompt,"")
.ulFlags=BIF_RETURNONLYFSDIRS
EndWith

lpIDList=SHBrowseForFolder(udtBI)
IflpIDListThen
sPath=String$(MAX_PATH,0)
lResult=SHGetPathFromIDList(lpIDList,sPath)
CoTaskMemFreelpIDList
iNull=InStr(sPath,vbNullChar)
IfiNull櫻敗襪ThensPath=Left$(sPath,iNull-1)
EndIf

ShowFolderSelection=sPath

EndFunction

PrivateSubCommand1_Click()
ShowFolderSelectionMe.hwnd,"選擇目錄:"
EndSub

⑵ vb commondialog 路徑

設置 commondialog1.InitDir="你的路徑",按照你所歲做啟說的乎如,設置為commondialog1.InitDir=app.path & 「\你的文件夾1名稱」
commondialog2.InitDir=app.path & 「\你的胡陸文件夾2名稱」

熱點內容
綠城桂語榕庭小區有什麼配置 發布:2025-05-05 20:53:01 瀏覽:463
如何偷到人支付寶密碼 發布:2025-05-05 20:32:15 瀏覽:927
怎麼用安卓玩ios崩三 發布:2025-05-05 20:30:19 瀏覽:388
絕地求生國際版伺服器怎麼改 發布:2025-05-05 20:22:26 瀏覽:643
安卓手機電話號碼如何傳 發布:2025-05-05 20:18:46 瀏覽:821
linux用戶添加組 發布:2025-05-05 20:12:15 瀏覽:884
佛山php 發布:2025-05-05 19:47:01 瀏覽:649
sql查詢用戶密碼 發布:2025-05-05 19:38:31 瀏覽:315
存儲器1g什麼意思 發布:2025-05-05 19:24:14 瀏覽:512
sqldump 發布:2025-05-05 19:21:56 瀏覽:479