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

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

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

Автор: amt 10.12.2004, 22:59

Возник такой вопросик.
Копировать файлы внутри компа или по лок сети - не проблема.
А вот скопировать папку со всем ее содержимым?
Спец функций я не знаю, но в принципе можно заставить прогу анализировать структуру вложенности папок, создавать вложенные папки, а потом в них копировать уже файлы.
Т.е. сделать можно, но заморочено.
А есть ли средства по круче и побыстрее.
Кто знает - отзовитесь.
smile

Автор: korob2001 10.12.2004, 23:28

Подключи к проекту Microsoft Scripting Runtime. Затем нарисуй кнопку, на событие Click повесь такой код:

Код


Option Explicit

Private Sub Command1_Click()
        Dim fso As FileSystemObject
        Set fso = New FileSystemObject
        ' В следующей строке укажи свои пути "откуда", "куда"
        fso.CopyFolder "C:\My", "D:\"
        Set fso = Nothing
End Sub

Удачи.

Автор: amt 11.12.2004, 20:35

korob2001
Спасибо, работает.
Но возникли еще вопросы.
Если на удаленном компе в папке, в которую копируется другая папка, находятся файлы, то они удаляются.
Как этого избежать?

И еще.
Как с использованием этой функции копировать в общую папку, защищенную паролем?
Я, в принципе, эту проблему решаю с помощью команды net use, запуская command.com.
Но хотелось бы использовать средства VB.

Заранее благодарен.

Автор: amt 14.12.2004, 16:39

Люди!
По поводу вопроса

Цитата

Если на удаленном компе в папке, в которую копируется другая папка, находятся файлы, то они удаляются.
Как этого избежать?

я дико извеняюсь. Это я тормознул в своей проге. Вопрос снят.
А вот второй вопрос по-прежнему интересует

Цитата

Как с использованием этой функции копировать в общую папку, защищенную паролем?
Я, в принципе, эту проблему решаю с помощью команды net use, запуская command.com.
Но хотелось бы использовать средства VB.