Как скопировать папку?

[Alexxx]

Здравствуйте!
Подскажите, пожалуйста, как программно скопировать папку с ее содержанием с d:\Plug_ins на a:\. Пытаюсь сделать таким образом:

Dim fso As New FileSystemObject, fldr As Folder
fldr.Copy ("d:\Plug_ins a:\")

но что-то не идет. То ли синтаксис не верен, то ли чего-то не понимаю (последнее, по-видимому, вернее).

[tyomitch]

Подскажите, пожалуйста, как программно скопировать папку с ее содержанием с d:\Plug_ins на a:\. Пытаюсь сделать таким образом:

Dim fso As New FileSystemObject, fldr As Folder
fldr.Copy ("d:\Plug_ins a:")

но что-то не идет. То ли синтаксис не верен, то ли чего-то не понимаю (последнее, по-видимому, вернее).

Код: Выделить всё

Dim fso As New FileSystemObject
fso.CopyFolder "d:\Plug_ins", "a:"


[Alexxx]

Такой прием не проходит. VB ругается. Там вроде первым параметром надо указывать, куда копировать, а вот вторым - какая-то булева переменная, указывающая некий список файлов (которые копируются?). Никак не могу понять...

[SHURUP]

Проверил, предыдущий пример работает, но если ты хочешь все-же через fldr.Copy:

Код: Выделить всё

Dim fso As New FileSystemObject, fldr As Folder
Set fldr = fso.GetFolder("d:\Plug_ins")
fldr.Copy ("a:")

Там вроде первым параметром надо указывать, куда копировать, а вот вторым - какая-то булева переменная, указывающая некий список файлов (которые копируются?).

Интересно, как же ты в булевую переменную список файлов передашь
Второй параметр определяет, заменять ли файлы при совпадении имен. По умолчанию - true!

[Dzhon]

Конкретно к твоему коду:

Код: Выделить всё

Dim a As String 'Что копировать
Dim b As String 'Куда копировать

fso.CopyFolder a, b, True

True - заменять файлы (если имеются)
False - не заменять


[Alexxx]

Спасибо всем огромное!!!
На винчестер с раздела в раздел, с директории в директорию и т.д. - все нормально. Только вот при записи на дискету выскакивает "синий" экран с указанием "Ошибка записи на диск", но после нажатия клавиши - копирование завершается нормально, и файлы на дискете вместе с папкой появляются. Какое объяснение возможно?

[Dzhon]

Может что-то с дискетой?
Проверил у себя (код указан выше) все работает влегкую?

[Alexxx]

Да, так и есть - что-то с дискетой.
Благодарю за помощь!