Цитата ksv_sergo:
|
Справки я уже перечитал вдоль и поперёк, но всё равно не срабатывает. »
|
папка назначения = ПУТЬ + новое ИМЯ папки
Код:
Set FSO = CreateObject("Scripting.FileSystemObject")
strFolder1 = "D:\1\FOX"
strFolder2 = InputBox ("Введите имя для создания папки архива")
strFolder2 = "D:\2\" & strFolder2
If Not FSO.FolderExists(strFolder2) Then FSO.CreateFolder(strFolder2)
strFolder2 = strFolder2 &"\"& FSO.GetFileName(strFolder1)
FSO.CopyFolder strFolder1, strFolder2, vbTrue
