VB选择文件路径代码

点击“打开”按钮后，调用本函数，在出现的选择文件对话框中选择好文件，点击确定后会返回文件路径。

01Function FPath$(nhwnd&, Title$)

02Dim bi As BROWSEINFO

03Dim idl As ITEMIDLIST

04Dim rtn&, pidl&, path$, pos%

05bi.hOwner = nhwnd&

06bi.pidlRoot = idl.mkid.cb

07bi.lpszTitle = Title$

08bi.ulFlags = &H1

09pidl&= SHBrowseForFolder(bi)

10path$ = Space$(512)

11rtn&= SHGetPathFromIDList(ByVal pidl&, ByVal path$)

12pos% = InStr(path$, Chr$(0))

13FPath$ = Left(path$, pos - 1)

14End Function

添加一个文件打开对话框，在工程--部件中选择

CommonDialog1.DefaultExt       扩展名

CommonDialog1.InitDir        路径

CommonDialog1.Filter        文件过滤，按扩展名

CommonDialog1.ShowOpen     文件打开

VB6.0可使用CommonDialog 控件实现选择路径、打开路径。

通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave

方法可显示“打开”和“另存为”对话框。

两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似

代码实例：

Private Sub Command1_Click()

    ' 设置“CancelError”为 True

    CommonDialog1.CancelError = True

    On Error GoTo ErrHandler

    ' 设置标志

    CommonDialog1.Flags = cdlOFNHideReadOnly

    ' 指定缺省的过滤器

    CommonDialog1.FilterIndex = 2

    ' 显示“打开”对话框

    CommonDialog1.ShowOpen

    ' 显示选定文件的名字

    MsgBox CommonDialog1.FileName

    Exit Sub

ErrHandler:

    ' 用户按了“取消”按钮

    Exit Sub

End Sub

---