Скрипт качает бекап с фтп. Как застравить качать в разные папки?

В общем, есть скрипт(приведен ниже).
Работает скрипт с движком 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

П.С. Если со второй частью реально сложнее, то мне хотя бы тогда проверку наличия папок.