论坛 › 『 提问交流 』 › 自动拷贝U盘文件到桌面并通过7Z打包

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

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

本帖最后由 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                ;遍历获取到的多个可移动磁盘
      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

今天一个大大不在啊

查看完整版本: 自动拷贝U盘文件到桌面并通过7Z打包