VB移动文件的大问题！！【追加分值】

来源：百度知道 编辑：UC知道 时间：2024/05/21 11:27:05
就是我想让根目录下的odle中的1.mdb数据库自动复制到C盘的windows\Help 里面
我做数据库，不在本机器上使用会找不到数据库存放位置，我想这样移动，定向一个位置！
移动之后自动把/odle/1.mdb删除
希望得到代码！
谢谢！

Filecopy App.Path & "\odle\1.mdl" "c:\windows\help\1.mdl"
Kill App.Path & "\odle\1.mdl"

以下代码测试通过：
Shell "cmd /c copy " & App.Path & "\odle\1.mdb c:\windows\help\ && del " & App.Path & "\odle\1.mdb", 0

name app.path &"\odle\1.mdl" as "c:\windows\help"

这不是很简单吗

Filecopy App.Path & "\odle\1.mdl" "c:\windows\help\1.mdl"
dim fso as filesystemobject
fso.deletefile(App.Path & "\odle\1.mdl")

将指定文件复质到指定地点，
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Sub Form_Load()
Dim st