Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Пользователь


Сообщения: 78
Благодарности: 23

Профиль | Отправить PM | Цитировать


ksv_sergo, ответы на такие вопросы в любой справке есть.
Код: Выделить весь код
Dim fso, ImputName2, FolderName1 

Set fso = CreateObject("Scripting.FileSystemObject")
FolderName1 = "d:\1\FOX"   'Копируемая папка

ImputName2 = InputBox ("Введите имя для создания папки архива")
Set Fldr = fso.CreateFolder ("d:\2\" & ImputName2) 'тут не хватало слэша
fso.CopyFolder FolderName1, "d:\2\" & ImputName2, true

Отправлено: 20:34, 05-07-2011 | #2