自动拷贝U盘文件到桌面并通过7Z打包

pizigao · 发表于 2011-4-18 09:44:57

本帖最后由 pizigao 于 2011-4-18 09:54 编辑

If FileExists(@ScriptDir & "\111\222\Data\appdata.mdb") Then
FileCopy(@ScriptDir & "\111\222\Data\appdata.mdb", @DesktopDir & "\数据备份",9)
FileCopy(@ScriptDir & "\111\222\333\444\Data\data.mdb", @DesktopDir & "\数据备份",9)
If FileExists(@DesktopDir & "\数据备份\*.mdb") Then
MsgBox(64, "成功", "拷贝成功")
Else
MsgBox(16,"失败", "文件不存在")
EndIf
Else
MsgBox(16,"失败", "数据库路径不存在，请把工具放到根目录下")
EndIf
Exit

pizigao · 发表于 2011-4-18 09:47:06

本帖最后由 pizigao 于 2011-4-18 09:55 编辑

（1）我这个写法就是把工具放到U盘根目录执行的，希望大家帮我写一个直接放到任何路径下去找U盘的数据库两个路径（即：\111\222\Data\appdata.mdb和\111\222\333\444\Data\data.mdb）
（2）然后把两个数据库文件打包到桌面，生成数据库备份.zip
PS：7z要释放到临时文件夹，就不删除了

pizigao · 发表于 2011-4-18 11:13:19

afan大大过来看看啊

pizigao · 发表于 2011-4-18 11:22:55

本帖最后由 pizigao 于 2011-4-18 12:55 编辑

#NoTrayIcon
$source="\111\222\Data\appdata.mdb" ,  "\111\222\333\444\Data\data.mdb"             ;U盘中根目录下的文件夹
$dest=@DesktopDir & "\数据备份"                ;目标文件夹
$var = DriveGetDrive("removable")


If NOT @error Then
    For $i = 1 to $var[0]                ;遍历获取到的多个可移动磁盘
        If FileExists($var[$i] & $source) Then
                FileCopy($var[$i] & $source,$dest,9)
                MsgBox(0,"Year!!!","复制文件夹成功！")
        Else
                MsgBox(0,"Error!!!","找不到文件夹 " & $var[$i] & $source)
        EndIf
    Next

    Exit
EndIf
MsgBox(0,"Error!!!","请确认可移动磁盘已接入！")

这个哪里错了？两个路径不能放在一个变量里？

pizigao · 发表于 2011-4-18 12:33:30

没人知道么？

dalao · 发表于 2011-4-18 14:14:35

不知道好不好用

pizigao · 发表于 2011-4-18 16:39:33

今天一个大大不在啊

		自动登录	找回密码
密码			加入

[AU3基础] 自动拷贝U盘文件到桌面并通过7Z打包

相关帖子