Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Копирование каталогов

Автор: DrNemo 6.5.2006, 12:10

как скопировать каталог, с большим количеством подкаталогов?

Автор: Akina 6.5.2006, 12:18

FileSystemObject.CopyFolder

Автор: DrNemo 6.5.2006, 12:33

а можно поподробнее, заранее спасибо! smile

Автор: vbCrLf 6.5.2006, 13:14

Да.... в свое время я составлял чудовищную функцию, которая составляла массив файлов и папок... потом создавала паки, копировала файлы и т.д.... хотя и сейчас приходиться ею пользоваться, чтоб знать кол-во скопированных файлов, процент выполнения и т.д.

Автор: DrNemo 6.5.2006, 13:22

просьба поделится кодом, а то я не как не могу подключить библиотеку Scrrun.Dll

Автор: Akina 6.5.2006, 14:03

DrNemo, ты хоть когда-нить в справку заглядываешь? или сразу сюда бежишь...

Код

Dim FSO As FileSystemObject
Dim Source As String
Dim Destination As String
Dim OverWrite As Boolean

Set FSO = CreateObject("Scripting.FileSystemObject")
Source = "c:\my documents\letters\*"
Destination = "c:\tempfolder\"
OverWrite = True
FSO.CopyFolder Source, Destination, OverWrite
Set FSO = Nothing

Автор: DrNemo 6.5.2006, 15:38

если чесно все FAQ перерыл - не нашел, спасибо

Автор: DrNemo 6.5.2006, 16:54

выручайте люди, не как не могу написать код для копирования папок, а он очень нужен мне