Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
Создание папки с подпапками
ArcFolder="C:\Backup" Set fso = CreateObject("Scripting.FileSystemObject") If not(fso.FolderExists(ArcFolder)) Then fso.CreateFolder(ArcFolder) End If For dn=1 To 7 ArcFolderD = ArcFolder&"\D"&Trim(CStr(dn))&"\" If not(fso.FolderExists(ArcFolderD)) Then fso.CreateFolder(ArcFolderD) End If Next |
Категория: Скрипты | Добавил: Игорь (12.02.2010)
|
Просмотров: 1893
| Рейтинг: 0.0/0 |
|
|
|