如何选取保存路径

请问vb中如何实现如题所述  
  例如：备份数据库时，想选取保存数据库备份的路径，应该如何实现呢？ 问题点数：50、回复次数：5Top

1 楼BlueBeer（1win）回复于 2004-09-03 00:09:06 得分 10

可以用CommonDialog，或者用API调用“选择文本夹”对话框Top

2 楼hhjjhjhj（大头)(http://office.9zp.com）回复于 2004-09-03 00:16:04 得分 20

Private   Sub   Command1_Click()  
  Dim   shl   'As   New   Shell  
  Dim   shlFold   'As   Folder2  
  Set   shl   =   CreateObject("Shell.Application")  
  Timer1.Interval   =   10  
  Timer1.Enabled   =   True  
  Set   shlFold   =   shl.BrowseForFolder(0,   "tttt",   0)  
  If   Not   shlFold   Is   Nothing   Then  
  MsgBox   shlFold.Self.Path  
  End   If  
  End   Sub  
  Top

3 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2004-09-03 00:23:55 得分 20

Private   Type   BROWSEINFO  
  hOwner   As   Long  
  pidlRoot   As   Long  
  pszDisplayName   As   String  
  lpszTitle   As   String  
  ulFlags   As   Long  
  lpfn   As   Long  
  lParam   As   Long  
  iImage   As   Long  
  End   Type  
   
  Const   BIF_RETURNONLYFSDIRS   =   &H1  
   
  Private   pidl   As   Long  
  Private   Declare   Function   SHGetPathFromIDList   _  
  Lib   "shell32.dll"   Alias   "SHGetPathFromIDListA"   _  
  (ByVal   pidl   As   Long,   ByVal   pszPath   As   String)   As   Long  
   
  Private   Declare   Function   SHBrowseForFolder   Lib   "shell32.dll"   _  
  Alias   "SHBrowseForFolderA"   _  
  (lpBrowseInfo   As   BROWSEINFO)   As   Long  
     
  '　　   双击命令按钮，写如下代码：  
  Private   Sub   command1_Click()  
  Dim   bi   As   BROWSEINFO  
  Dim   r   As   Long  
  Dim   pidl   As   Long  
  Dim   path   As   String  
  Dim   pos   As   Integer  
   
  '句柄  
  bi.hOwner   =   Me.hWnd  
  '展开根目录  
  bi.pidlRoot   =   0&  
  '列表框标题  
  bi.lpszTitle   =   "请选择软件安装路径："  
  '规定只能选择文件夹，其他无效  
  bi.ulFlags   =   BIF_RETURNONLYFSDIRS  
  '调用API函数显示列表框  
  pidl   =   SHBrowseForFolder(bi)  
  '利用API函数获取返回的路径  
   
  path   =   Space$(512)  
  r   =   SHGetPathFromIDList(ByVal   pidl&,   ByVal   path)  
  If   r   Then  
  pos   =   InStr(path,   Chr$(0))  
  Text1   =   Left(path,   pos   -   1)  
  Else:   Text1   =   ""  
  End   If  
  End   SubTop

4 楼VisionSpace（幻影时空）回复于 2004-09-03 08:54:21 得分 0

这累很多哟!Top

5 楼pennyzhueng（摩摩茶）回复于 2004-09-03 09:27:05 得分 0

谢谢各位Top

相关问题

• shell
• shlfold
• shl
• private

• 帖主：pennyzhueng
• BlueBeer
• hhjjhjhj
• online

• Visual Basic类图书
• Visual Basic类源码下载