vb调用路径

来源：百度知道 编辑：UC知道 时间：2024/05/13 07:47:11
菜鸟我现在正在做一管理系统的数据备份，*.mdb的，现在只能在代码中实现路径选择，想弄个手动选择文件路径，就像下图一样，哪位仁哥仁姐要是能解决，本人追加十分。

可以用API函数，但是这个更加简单一点：

Private Sub Command1_Click()
On Error Resume Next
Dim ShellApp, Fld, fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set ShellApp = CreateObject("Shell.Application")
Set Fld = ShellApp.BrowseForFolder(Me.hWnd, "浏览文件夹", 0)
If fso.FolderExists(Fld.self.Path) Then
MsgBox "你选择了文件夹:" & Fld.self.Path
End If
End Sub

添加一个commondialog控件.
工程,部件,勾选Microsoft Common Dialog Control 6.0.确定.然后添加该控件.
备份时,用以下代码:
Commondialog1.showsave
备份为 Commondialog1.filename.

图呢？哪里有图？