vb6選擇文件夾

Ⅰ VB2010中怎樣打開文件夾

VB6不能直接選擇文件夾，需要用到API，VB.NET就很簡單了，FolderBrowserDialog控制項就是用於選擇文件夾的：
1234 <a
href="https://www..com/s?wd=Private&tn=44039180_cpr&fenlei=-bIi4WUvYETgN-"
target="_blank"
class="-highlight">Private</a> Sub Button1_Click(ByVal s<a
href="https://www..com/s?wd=end&tn=44039180_cpr&fenlei=-bIi4WUvYETgN-"
target="_blank"
class="-highlight">end</a>er As System.Object, ByVal e As System.EventArgs) Handles Button1.Click FolderBrowserDialog1.ShowDialog() MsgBox(FolderBrowserDialog1.SelectedPath) <a
href="https://www..com/s?wd=End&tn=44039180_cpr&fenlei=-bIi4WUvYETgN-"
target="_blank"
class="-highlight">End</a> Sub

Ⅱ 請教vb6中如何選擇文件夾路徑

'在主窗體中，加入以下代碼
OptionExplicit

PrivateSubForm_Load()
Me.Caption=C_SelectPath(Me.hwnd,App.Path)'選擇文件夾路徑
EndSub

'========================================================================

'在模塊中加入下面的代碼
OptionExplicit

PrivatemSetPathAsString

PrivateTypeBrowseInfo
hWndOwnerAsLong
pIDLRootAsLong
pszDisplayNameAsLong
lpszTitleAsString
ulFlagsAsLong
lpfnCallbackAsLong
lParamAsLong
iImageAsLong
EndType

PrivateConstMAX_PATH=512&
PrivateConstBFFM_INITIALIZED=1&
PrivateConstBFFM_SELCHANGED=2&
PrivateConstWM_USER=&H400
PrivateConstBFFM_SETSTATUSTEXT=(WM_USER+100)
PrivateConstBFFM_SETSELECTION=(WM_USER+102)
PrivateConstWM_SETTEXT=&HC
PrivateConstBIF_RETURNONLYFSDIRS=1

"ole32.dll"(ByValhMemAsLong)
"shell32"(lpBIAsBrowseInfo)AsLong
"shell32.dll"Alias"SHGetPathFromIDListA"(ByValpidlAsLong,ByValpszPathAsString)AsLong
"user32.dll"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong
"user32"Alias"SendMessageW"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLong
"user32"Alias"FindWindowExA"(ByValhWnd1AsLong,ByValhWnd2AsLong,ByVallpsz1AsString,ByVallpsz2AsString)AsLong

(AddAsLong)AsLong
GetAddressofFunction=Add
EndFunction

(ByValhwndAsLong,ByValuMsgAsLong,ByVallParamAsLong,ByVallpDataAsLong)AsLong
DimlpIDListAsLong
DimlRetAsLong
DimsBufferAsString
DimFhwndAsLong
DimszPath()AsByte
OnErrorGoToerrhandler
SelectCaseuMsg
CaseBFFM_INITIALIZED
CallSendMessage(hwnd,BFFM_SETSELECTION,True,ByValmSetPath)'傳遞默認路徑
Fhwnd=FindWindowEx(hwnd,0,"Edit",vbNullString)
CallSendMessage(Fhwnd,WM_SETTEXT,0,ByValmSetPath)
CaseBFFM_SELCHANGED''路徑變化
sBuffer=Space(MAX_PATH)
lRet=SHGetPathFromIDList(lParam,ByValsBuffer)
CoTaskMemFreelpIDList
IflRet=1Then
CallSendMessage(hwnd,BFFM_SETSTATUSTEXT,0,sBuffer)'改變對話框的狀態信息
Fhwnd=FindWindowEx(hwnd,0,"Edit",vbNullString)
szPath=sBuffer
CallSendMessageLong(Fhwnd,WM_SETTEXT,0,VarPtr(szPath(0)))
EndIf
EndSelect
errhandler:
BrowseCallbackProc=0
EndFunction

'使用方法：
'Me.Caption=C_SelectPath(Me.hwnd,App.Path)'選擇文件夾路徑
PublicFunctionC_SelectPath(m_hwmd&,strPathAsString)AsString
DimlpIDListAsLong
DimudtBIAsBrowseInfo
WithudtBI'初試化udtBI結構
mSetPath=strPath'設置默認路徑
.hWndOwner=m_hwmd
.ulFlags=BIF_RETURNONLYFSDIRSOr&H10Or&H40'&H10=路徑框&H40=新建文件夾
.lpszTitle="請選擇文件夾："
.lpfnCallback=GetAddressofFunction(AddressOfBrowseCallbackProc)'getaddressoffunction.
EndWith
lpIDList=SHBrowseForFolder(udtBI)'彈出文件夾查看窗口
IflpIDListThen
DimsPathAsString,retAsLong
sPath=String$(MAX_PATH,0)
ret=SHGetPathFromIDList(ByVallpIDList,ByValsPath)
CallCoTaskMemFree(lpIDList)
IfretThen
C_SelectPath=Replace(sPath,Chr(0),"")
EndIf
EndIf
EndFunction

Ⅲ VB6 求 彈出選擇 這一種 外觀的文件夾 選擇對話框，注意是要<文件夾>的，謝謝！

PrivateSubChooseDir_Click()
DimsTempDirAsString
OnErrorResumeNext
sTempDir=CurDir'
CommonDialog1.DialogTitle="Selectadirectory"'titlebar
CommonDialog1.InitDir=App.Path'startdir,mightbe"C:"orsoalso
CommonDialog1.FileName="SelectaDirectory"'Somethinginfilenamebox
CommonDialog1.Flags=cdlOFNNoValidate+cdlOFNHideReadOnly
CommonDialog1.Filter="Directories|*.~#~"'setfiles-filtertoshowdirsonly
CommonDialog1.CancelError=True'allowescapekey/cancel
CommonDialog1.ShowSave'showthedialogscreen
IfErr<>32755Then'Userdidn'tchoseCancel.
Me.SDir.Text=CurDir
EndIf
ChDirsTempDir'
EndSub

Ⅳ vb6.0 查找指定文件

Ⅳ VB6 如何先打開指定文件夾，然後選中指定該文件夾下指定的文件

Private Sub Command1_Click()
Shell "explorer.exe /select,C:\test\123.txt ", vbNormalFocus

End Sub

Ⅵ VB6 通過了Drive和Dir控制項 選擇路徑

這兩個控制項界面都過時了，附件使用API調用通用對話框

分為選擇文件夾browseDlg和選擇文件FileDlg，調用方法見注釋

SubsFile(dAsString)
DimfsoAsObject,tdAsObject,ffAsObject,ddAsObject
Setfso=CreateObject("scripting.filesystemobject")
Settd=fso.getfolder(d)
ForEachffIntd.Files
IfLCase(Right(ff.Name,4))=".txt"ThenList1.AddItemff.Path
Next
IfCheck1.Value=1Then
ForEachddIntd.subfolders
sFiledd.Path
Next
EndIf
EndSub

PrivateSubCommand3_Click()
List1.Clear
sFileText2.Text
EndSub

PrivateSubCommand1_Click()
Debug.Print"通過Environ$函數獲取:"
DimItem
DimiAsInteger
i=1
Item=Environ$(i)
DoUntilItem=""
Debug.PrintItem
i=i+1
Item=Environ$(i)'你可以查看一下全部環境串
Loop
'windir=C:WINDOWS'返回的串的格式是這樣的
'Debug.PrintEnviron$("windir")'所以可以這樣訪問某個串
'如：
MsgBoxEnviron$("ProgramFiles")
'MsgBoxEnviron$("SystemRoot")

Debug.Print"也可以通過另外渠道獲取:"
DimWshShellAsObject
SetWshShell=CreateObject("Wscript.Shell")
ForEachItemInWshShell.SpecialFolders'查看集合對象全部項目
Debug.PrintItem
Next
'也可以通過關鍵字訪問某個項目，關鍵字是什麼只能自己猜了，我沒見到過完整的介紹。
'下面這幾個是有效的：
MsgBoxWshShell.SpecialFolders("SendTo")
'MsgBoxWshShell.SpecialFolders("StartUp")
'MsgBoxWshShell.SpecialFolders("Desktop")
'MsgBoxWshShell.SpecialFolders("Recent")
EndSub

explorer/select,C:

shell"explorer/select,""C:123""",vbNormalFocus