我做的图书馆里系统,数据备份的时候,只能保存在默认的一个文件夹下,我想让它弹出一个对话框保存在任意目录下,请高手给我改一下
Dim olddb As String
Dim Fs As FileSystemObject
Dim BackUpFile As String
olddb = App.Path + "\" + DBName
BackUpFile = App.Path + "\数据库备份\" + "_" + DBName
If MsgBox("你确定要备份当前数据库吗?", vbQuestion + vbOKCancel _
+ vbDefaultButton2, "请确认") = vbCancel Then
Exit Sub
End If
Set Fs = CreateObject("Scripting.FileSystemObject")
'拷贝数据库文件至指定位置
Fs.CopyFile olddb, BackUpFile
MsgBox "数据库备份成功", vbInformation + vbOKOnly, "信息"
Dim olddb As String
Dim Fs As FileSystemObject
Dim BackUpFile As String
olddb = App.Path + "\" + DBName
BackUpFile = App.Path + "\数据库备份\" + "_" + DBName
If MsgBox("你确定要备份当前数据库吗?", vbQuestion + vbOKCancel _
+ vbDefaultButton2, "请确认") = vbCancel Then
Exit Sub
End If
Set Fs = CreateObject("Scripting.FileSystemObject")
'拷贝数据库文件至指定位置
Fs.CopyFile olddb, BackUpFile
MsgBox "数据库备份成功", vbInformation + vbOKOnly, "信息"
解决方案 »
- 跪求:如何得到WebBrowser中网页的屏幕焦点?
- [提问]另类透明窗体
- 如何释放动态连接库(.dll文件)??
- 急!!如何用语句修改access2000数据库的表名?
- 类似于Magbox的,但提示就向把鼠标放在WINDOW托盘的时间上时候出的那个小黄框 该怎么做?
- 打包后,个头很大
- 如何将jpg、bmp等格式加出(合成)到TIF文档中,UP者有分!!
- 统计问题,应该不算难,但把我给难住了.各位高手给出出主意.
- 用Winsockc时为什么第二次输入主机地址进行连接时不能连接上。
- 帮帮忙!!!请问各位我在 Form_Load()连接数据库 程序执行时一定时间段 进行一次select 但现在有问题 如果执行时与数据库断开就无法查了
- 跪求!!急!!!基于VB的C51与PC的通信问题
- 毕业设计急求 用vb读Excel表,感谢大家啊
Private Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Const BIF_RETURNONLYFSDIRS = 1
Const MAX_PATH = 260
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As LongPrivate Function SelectDirectory(Byval sTitle As String) As String
Dim iNull As Integer, lpIDList As Long, lResult As Long
Dim sPath As String, udtBI As BrowseInfo
With udtBI
.hWndOwner = Me.hWnd
.lpszTitle = lstrcat(sTitle, "")
.ulFlags = BIF_RETURNONLYFSDIRS
End With
lpIDList = SHBrowseForFolder(udtBI)
If lpIDList Then
sPath = String$(MAX_PATH, 0)
SHGetPathFromIDList lpIDList, sPath
CoTaskMemFree lpIDList
iNull = InStr(sPath, vbNullChar)
If iNull Then sPath = Left(sPath, iNull - 1)
End If
SelectDirectory = sPath
End Function
......
Dim olddb As String
Dim Fs As FileSystemObject
Dim BackUpFile As String
Dim sPath As String
sPath = SelectDirectory("请选择数据库备份保存的文件夹")
If sPath <> "" Then
olddb = App.Path + "\" + DBName
BackUpFile = sPath + "数据库备份\" + "_" + DBName
If MsgBox("你确定要备份当前数据库吗?", vbQuestion + vbOKCancel _
+ vbDefaultButton2, "请确认") = vbCancel Then
Exit Sub
End If
Set Fs = CreateObject("Scripting.FileSystemObject")
'拷贝数据库文件至指定位置
Fs.CopyFile olddb, BackUpFile
MsgBox "数据库备份成功", vbInformation + vbOKOnly, "信息"
End If
用一楼提供的选择文件夹得到即可实现你的目标