mooseyaka
25-05-2007, 12:47
В общем, есть скрипт(приведен ниже).
Работает скрипт с движком cuteftp, видимо на ви_бейсике.
Как видно ниже в скрипте, конкретно указана папка в которую надо скачивать сам бекап.
Но хочется иметь несколько бекапов, скажем за 10 последних дней.
Постоянно менять ручками папки не хочется, хочется автоматизировать.
1)Подскажите плиз, как можно написать проверку наличия папки, если папка есть, то создать новую на единицу больше, и закачать бекап.
Я так думаю, что написать скрипт на корректную проверку "если есть папка 10, не создавать 11, заливать в папку 0 с перезаписью, и начать заново заливать по очереди" будет сложно.
2)Можно ли добавить еще такую запись - если последняя папка была 10, создать папку с датами %датасозданияпапка0%-%датасозданияпапки10%, переместить туда все папки с 0-10, создать в корне бекапа папку 0 и начать заливать в нее?
Заранее всем кто поможет спасибо.
Dim MySite
Set MySite = CreateObject("CuteFTPPro.TEConnection")
' Initialize remote server host name, protocol, port, etc.
MySite.Host = "ftp.hosting.ru"
MySite.Protocol = "FTP"
MySite.Port = 21
MySite.Retries = 30
MySite.Delay = 30
MySite.MaxConnections = 4
MySite.TransferType = "BINARY"
MySite.DataChannel = "PASV"
MySite.AutoRename = "OFF"
' WARNING!!! SENSITIVE DATA: user name and password.
MySite.Login = "login"
MySite.Password = "pass"
MySite.SocksInfo = ""
MySite.ProxyInfo = ""
' Connect to remote server
MySite.Connect
MySite.LocalRemove "D:\Backup\0\www"
MySite.Download "/www", "D:\Backup\0\www"
MySite.Disconnect
MySite.Close
П.С. Если со второй частью реально сложнее, то мне хотя бы тогда проверку наличия папок.
Работает скрипт с движком cuteftp, видимо на ви_бейсике.
Как видно ниже в скрипте, конкретно указана папка в которую надо скачивать сам бекап.
Но хочется иметь несколько бекапов, скажем за 10 последних дней.
Постоянно менять ручками папки не хочется, хочется автоматизировать.
1)Подскажите плиз, как можно написать проверку наличия папки, если папка есть, то создать новую на единицу больше, и закачать бекап.
Я так думаю, что написать скрипт на корректную проверку "если есть папка 10, не создавать 11, заливать в папку 0 с перезаписью, и начать заново заливать по очереди" будет сложно.
2)Можно ли добавить еще такую запись - если последняя папка была 10, создать папку с датами %датасозданияпапка0%-%датасозданияпапки10%, переместить туда все папки с 0-10, создать в корне бекапа папку 0 и начать заливать в нее?
Заранее всем кто поможет спасибо.
Dim MySite
Set MySite = CreateObject("CuteFTPPro.TEConnection")
' Initialize remote server host name, protocol, port, etc.
MySite.Host = "ftp.hosting.ru"
MySite.Protocol = "FTP"
MySite.Port = 21
MySite.Retries = 30
MySite.Delay = 30
MySite.MaxConnections = 4
MySite.TransferType = "BINARY"
MySite.DataChannel = "PASV"
MySite.AutoRename = "OFF"
' WARNING!!! SENSITIVE DATA: user name and password.
MySite.Login = "login"
MySite.Password = "pass"
MySite.SocksInfo = ""
MySite.ProxyInfo = ""
' Connect to remote server
MySite.Connect
MySite.LocalRemove "D:\Backup\0\www"
MySite.Download "/www", "D:\Backup\0\www"
MySite.Disconnect
MySite.Close
П.С. Если со второй частью реально сложнее, то мне хотя бы тогда проверку наличия папок.