004-关闭文件后自动备份

 

文档表格编辑完毕并保存关闭后自动加密压缩备份到各分区并上传到其他城市的FTP文件服务器主机

 

;【标题:BackupTimer等待文件关闭后自动压缩备份文件.ahk】,【腾讯QQ号 595076941 】

;【作者:BoAi】,【写作日期:2019年3月25日】,【版本号:第0版】,【手机号13812605488】

;

; 用法:

; 1 安装WinRAR压缩软件和AutoHotkey自动化热键脚本编辑、测试和运行软件。

; 2 在此脚本所在的文件夹新建一个与此脚本同名的Excel工作簿文件(*.xls)。

; 3 运行此脚本并在电脑上检验备份效果。

; 4 经常编辑的文件，建议发送此脚本文件的快捷方式到电脑桌面。

; 5 为防止丢失源代码，建议把此AutoHotkey脚本源代码复制粘贴到以下两个文件中

; C:\Program Files\Kingsoft\WPS Office\10.8.2.6666\office6\mui\default\templates\newfile.wps

; C:\Program Files\Kingsoft\WPS Office\10.8.2.6666\office6\mui\default\templates\newfile.et

; 并修改这两个文件的作者属性值 (快捷键<ALT> FII)。

#SingleInstance,force

#Persistent

#NoEnv

;; #Warn

SendMode Input

SetWorkingDir %A_ScriptDir%

global FName

StringLeft,FName,A_ScriptName,StrLen(A_ScriptName)-4

BackupWorkbook("D")

RunWait,%A_ScriptDir%\%FName%.xls

BackupWorkbook("D")

BackupWorkbook("E")

BackupWorkbook("F")

BackupWorkbook("G")

BackupWorkbook("H")

BackupWorkbook("I")

BackupWorkbook("J")

BackupWorkbook("K")

BackupWorkbook("L")

BackupWorkbook("M")

BackupWorkbook("N")

ExitApp

return

BackupWorkbook(DiskVolume)

{

FileCreateDir,%DiskVolume%:\备份文件\%FName%的备份

; 说明:为了兼容含有空格的文件夹路径,此处的Run命令的文件路径参数请加上双引号

;~ Run,"C:\PROGRA~1\WINRAR\WINRAR.EXE" A -AG -hp333--- -INUL "%DiskVolume%:\备份文件\%FName%的备份\%FName%的备份.rar" "%A_ScriptDir%\%FName%.xls"

Run,"C:\PROGRA~1\WINRAR\WINRAR.EXE" A -AG -INUL "%DiskVolume%:\备份文件\%FName%的备份\%FName%的备份.rar" "%A_ScriptDir%\%FName%.xls"

FileCopy,%A_ScriptFullPath%,%DiskVolume%:\备份文件\%FName%的备份\%A_ScriptName%,1

}

; DriveGet,盘符清单,List

; loop,Parse,盘符清单

; --- 脚本到此行结束 --- 第1页 【共1页】

 

 

 

 

@echo off

echo open 192.168.1.1 21 >> temp.txt

echo user username password>> temp.txt

echo bin >> temp.txt

echo put "C:\Documents and Settings\user\桌面\patch\upload_dir\1.rar" "test/temp%date%.rar" >> temp.txt

echo bye >> temp.txt

ftp -n -s:"temp.txt"

del /q C:\Documents and Settings\user\桌面\patch\upload_dir\1.rar

del /q temp.txt

pause