Конференция VBStreets

**Sun07** » 24.06.2006 (Сб) 19:15

Подскажите, как скопировать папку с её файлами целиком или скопировать всё её файлы в новую папку (папка не имеет вложенных папок)?

**vvs_adm** » 24.06.2006 (Сб) 19:32

Код: Выделить всё: Dim FSO As New FileSystemObject FSO.CopyFolder ...

**Dangerous** » 24.06.2006 (Сб) 21:13

А зачем так мучится?
проще:
Для копирования файлов есть функция FileCopy "дирек1","дирек2"

Код: Выделить всё: FileCopy "c:\1.txt", "c:\1\1.txt" 'Копируем файл 1.txt из c:\ в c:\1\

А ещё на всякий случай - для перемещения файлов или папок так же есть Name "дирек1\Имя файла" as "дирек2\Имя файла" или для папок Name "дирек1" as "дирек2"
И можно плясать!!!

**Конь** » 24.06.2006 (Сб) 21:25

Dangerous
Ему нужно не файл копировать, а папку.

**alibek** » 24.06.2006 (Сб) 21:26

MkDir плюс рекурсия на FileCopy.

**Dangerous** » 24.06.2006 (Сб) 21:28

ОЙ!!!
Я ЧТО ТО ТУТ ОШИБСЯ!!!
ИЗВЕНИТЕ!!!
Просто на моих часах 2:27 и тут фиг сообразишь что надо!!!

**Конь** » 24.06.2006 (Сб) 21:33

Dangerous
На моих то же самое.

Можно, правда, получить имена файлов в папке, создать новую, а потом их по одному копировать, сложно) Лучше как сказал vvs_adm)

**Sun07** » 24.06.2006 (Сб) 21:50

Большому Человеку - имена файлов неизвестны, их количество тоже. Чем их определить?

**tyomitch** » 24.06.2006 (Сб) 22:10

Dir-ом

Конференция VBStreets

Копирование папки

Копирование папки

Кто сейчас на конференции