|
|
|
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Скрипт качает бекап с фтп. Как застравить качать в разные папки? |
|
|
Скрипт качает бекап с фтп. Как застравить качать в разные папки?
|
|
Новый участник Сообщения: 13 |
В общем, есть скрипт(приведен ниже).
Работает скрипт с движком 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
|
|
|
Отправлено: 12:47, 25-05-2007 |
|
Ночной странник
Сообщения: 4050
|
Профиль | Сайт | Отправить PM | Цитировать mooseyaka
может вам ант использовать? |
|
------- Отправлено: 16:03, 25-05-2007 | #2 |
|
Новый участник Сообщения: 13
|
Профиль | Отправить PM | Цитировать эээ.... простите, что использовать?
|
|
Отправлено: 17:17, 25-05-2007 | #3 |
|
Ночной странник
Сообщения: 4050
|
Профиль | Сайт | Отправить PM | Цитировать mooseyaka
http://ant.apache.org/ |
|
------- Отправлено: 19:47, 25-05-2007 | #4 |
Ветеран Сообщения: 1665
|
Профиль | Отправить PM | Цитировать mooseyaka
Могу предложить элементарное решение, но оно рассчитано на 7 дней (неделю). Размножаешь скрипт в количестве 7-ми экземпляров, назначаешь для каждого свою папку и запускаешь эти скрипты по дням недели. Только перед закачкой надо чистить текущую папку. |
|
|
------- Отправлено: 13:41, 28-05-2007 | #5 |
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| Торрент качает со скоростью 9 кб\с (как быть ?) | zxzx | Хочу все знать | 8 | 26-01-2009 18:28 | |
| Учетные записи в разные папки | lleWxaM | Microsoft Exchange Server | 3 | 25-07-2008 08:43 | |
| Как узнать какая прога качает из инета | deller | Microsoft Windows 2000/XP | 9 | 12-11-2005 03:08 | |
| Как переписать текстовые файлы в разные папки! | Guest | Программирование и базы данных | 7 | 22-10-2004 02:57 | |
| Как сделать Бекап? | Falcon1 | Хочу все знать | 3 | 09-06-2003 22:12 | |
|
|
Время: 13:56. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. |
