要用FTP上傳檔案
請問有沒有
自動上傳的程式呢？
每次要靠手動上傳很麻煩
謝謝
#!/bin/sh
# 抓取當下日期時間
dtime=`date +%Y%m%d%H%M`
# 將 lampp 停止
/opt/lampp/lampp stop
# 將 /opt/lampp 目錄備份壓縮
/bin/tar czpvf /opt/BACKUP/backup-$dtime.tgz /opt/lampp/
# 啟動 lampp 服務
/opt/lampp/lampp start
# 刪除備份目錄內 7天以上的檔案
/usr/bin/find /opt/BACKUP/ -atime 7 -exec rm -f {} \;
# 以下是將備份檔案傳送至 FTP Server
cd /opt/BACKUP
# 連到FTP Server (192.168.1.1)
/usr/bin/ftp -n 192.168.1.1 <<END
# 使用者名稱 backup 密碼 backup
user backup backup
# 將剛備份的檔案 上傳至 FTP
mput backup-$dtime.tgz
quit
END
後續就是.......... 打完收工 ....
但每次備份檔案被放置到主機上後，舊的備份並不會自己刪除。
一個備份檔案都 "好幾G" ，一個月下來硬碟使用量可不少，
所以利用 VBscript 的方式，來刪除過舊的備份檔
'Days
daysAgo = 7
'Path
dirPath = "D:\backup"
'Fie extension name
extName = ".tgz"
' Program Start
Set fs = CreateObject("Scripting.FileSystemObject")
Set w = WScript.CreateObject("WScript.Shell")
Set f = fs.GetFolder(dirPath)
Set fc = f.Files
dateBefore = Now() - daysAgo
For Each ff in fc
fileName = ff.Name
fileDate = ff.DateLastModified
If Right(fileName, Len(extName)) = extName And fileDate < dateBefore Then
fs.DeleteFile(dirPath & "\\" & fileName)
End If
Next
請將以上的程式碼複製下來後，先更改 "Days" "Path" 及 "File Extension name" 三個參數，並將該檔案存成 .vbs 檔，然後再到 windows 去設排程就可以了!
內文搜尋
從 APP 打開
X