2011-11-07

使用 7-zip 壓縮目錄與檔案 (on Windows)

#!/usr/bin/tclsh
#
# This file is used to backup my homepage
#

set backupfile $env(HOME)
append backupfile "\\My Documents"
append backupfile "\\Homepage-"
append backupfile [clock format [clock seconds] -format %Y%m%d]
append backupfile ".7z"

set backupdir $env(HOME)
append backupdir "\\My Documents"
append backupdir "\\public_html"

set fileExist [file exists $backupfile]
if {$fileExist > 0} {
    puts "Now try to remove old backup file."
    file delete $backupfile
}

set var [list 7z a $backupfile $backupdir]
exec {*}$var

puts "Done."

exit

因為在 Windows XP 上也有需要網頁的備份,所以把之前在 Linux 上用的稍微改寫以後就搬過來了。要注意的是,我已經把 7-ZIP 加進去 PATH 環境變數裡了,所以就不用寫絕對路徑,只要寫 7z 就可以了。