Dim fsox As New FileSystemObject Dim drv As Drive Dim fil As File Set drv = fsox.GetDrive("a:") Set fil = fsox.GetFile("e:\vbtest\sales.mdb") If Not drv.IsReady Then MsgBox "驱动器没准备好,不能复制文件" Exit Sub End If If drv.FreeSpace < fil.Size Then MsgBox "磁盘剩余空间不够,不能复制文件" Exit Sub End If fsox.CopyFile "e:\vbtest\sales.mdb", "a:\" MsgBox "备分已完成"以上代码和你们的有什么区别
在使用SQL语句时,为识别“\”,所以对于路径用"\\",应该为 Dim PathName Dim BackName PathName = "e:\\backup" BackName = "sale" db.Execute "backup database " & BackName & " to disk='" & PathName & " 可以在试一试
http://expert.csdn.net/Expert/topic/1116/1116768.xml?temp=.3220789
创建一个命令对象
Cmd.CommandType = adCmdText
Cmd.CommandText = "BACKUP DATABASE " & Txtvalue(4).Text & " TO disk = '" & PathName & "'""
Cmd.Execute
能详细点吗
Dim BackName
PathName = "e:\backup"
BackName = "sale"
db.Execute "backup database " & BackName & " to disk='" & PathName & "李,这是我改过的。但执行起来没动静,另外,想问:BackName,PathName的语法怎样定义
火星,上面的代码的三个引号分别代表什么,另外能讲讲你的思路吗
Dim drv As Drive
Dim fil As File
Set drv = fsox.GetDrive("a:")
Set fil = fsox.GetFile("e:\vbtest\sales.mdb")
If Not drv.IsReady Then
MsgBox "驱动器没准备好,不能复制文件"
Exit Sub
End If
If drv.FreeSpace < fil.Size Then
MsgBox "磁盘剩余空间不够,不能复制文件"
Exit Sub
End If
fsox.CopyFile "e:\vbtest\sales.mdb", "a:\"
MsgBox "备分已完成"以上代码和你们的有什么区别
Dim PathName
Dim BackName
PathName = "e:\\backup"
BackName = "sale"
db.Execute "backup database " & BackName & " to disk='" & PathName & "
可以在试一试