Четверг, 16.05.2024
Уголок эникейщика
Главная | Регистрация | ВходПриветствую Вас Гость | RSS
Меню сайта
Категории раздела
1С [13]
Windows (2000+)/общее [90]
Windows (ME-) [6]
Программы [71]
Mobile [2]
Скрипты [26]
Hard [7]
Android [5]
Советы от Влада [7]
Избранное

Рахни православні
Погода в Виннице
Сайт Экслера
Форум Ru.Board
CWER.ru
Hot Line - Цены
Яндекс.Маркет
Форум rutracker.org

Статистика
Онлайн всего: 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)
Просмотров: 1892 | Рейтинг: 0.0/0
Облако тегов
сайт программы Статьи личное разочарования Windows 1c антивирус политика почитать рекомендую Prices math ссылки english 1С скрипты total сеть VBS
Поиск
Google

WWW на сайте
Copyright IgorDanyK © 2024
Создать бесплатный сайт с uCoz