004-关闭文件后自动备份

 

  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