vb选择文件夹路径
㈠ VB的什么控件是可以选择文件夹路径
工程--部件--Microsoft Common Dailog
选择路径的事件
保存: showsave
打开: showopen
㈡ VB.net怎么弹出文件夹路径选择框
选择文件夹在工具箱-对话框里选择FolderBrowserDialog添加到设计器中
然后代码写在按钮事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text=FolderBrowserDialog1.SelectedPath
选择文件在工具箱-对话框里选择OpenFileDialog
把OpenFileDialog1.ShowDialog()
TextBox1.Text=OpenFileDialog1.FileName
写到按钮事件下
如图
点击按钮会弹出通用对话框选择好路径后确定，编辑框里就会显示选择的路径
㈢ 请教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
㈣ vb 选择文件 获取文件路径
首先在窗体中放置
Microsoft
Common
Dialog
Control，名称指定为
cdlg1。
然后放一个按钮，代码如下：
Private
Sub
Command1_Click()
Dim
fname
As
String
Dim
content
As
String
cdlg1.ShowOpen
fname
=
cdlg1.FileName
MsgBox
fname
Open
fname
For
Input
As
#1
Input
#1,
content
MsgBox
content
Close
#1
End
Sub
㈤ VB获取文件夹路径
只说
原理
。先建立FSO
对象遍历磁盘
查找名称为"“的文件夹
，返回全路径
㈥ VB选择文件路径代码
点击“打开”按钮后，调用本函数，在出现的选择文件对话框中选择好文件，点击确定后会返回文件路径。
01 Function FPath$(nhwnd&, Title$)
02 Dim bi As BROWSEINFO
03 Dim idl As ITEMIDLIST
04 Dim rtn&, pidl&, path$, pos%
05 bi.hOwner = nhwnd&
06 bi.pidlRoot = idl.mkid.cb
07 bi.lpszTitle = Title$
08 bi.ulFlags = &H1
09 pidl& = SHBrowseForFolder(bi)
10 path$ = Space$(512)
11 rtn& = SHGetPathFromIDList(ByVal pidl&, ByVal path$)
12 pos% = InStr(path$, Chr$(0))
13 FPath$ = Left(path$, pos - 1)
14 End Function
㈦ vb中获取选择文件夹的路径
Private Declare Function icePub_getSelectPath Lib "icePubDll.dll" (ByVal strPath As String,ByVal maxLen As Integer) As Integer
Dim str1 As String
Dim a2 As Integer
str1 = Space(1024*10+1)
a2 = = icePub_getSelectPath(str1,1024*10)
MsgBox str1
㈧ vb怎么实现弹出对话框选择文件路径
VB6.0使用CommonDialog 控件弹出对话框选择文件路径。
通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave
方法可显示“打开”和“另存为”对话框。
两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似。
下例显示“打开”对话框然后在信息框中显示所选的文件名：
PrivateSubCommand1_Click()
'设置“CancelError”为True
CommonDialog1.CancelError=True
OnErrorGoToErrHandler
'设置标志
CommonDialog1.Flags=cdlOFNHideReadOnly
'设置过滤器
CommonDialog1.Filter="AllFiles(*.*)|*.*|TextFiles"&_
"(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"
'指定缺省的过滤器
CommonDialog1.FilterIndex=2
'显示“打开”对话框
CommonDialog1.ShowOpen
'显示选定文件的名字
MsgBoxCommonDialog1.FileName'显示路径
ExitSub
ErrHandler:
'用户按了“取消”按钮
ExitSub
EndSub