VPF::Копирование папок - Форум программистов

amt

Дата 10.12.2004, 22:59 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3

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

--------------------

С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций.

korob2001

Дата 10.12.2004, 23:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61

Подключи к проекту 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 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3

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

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

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

--------------------

amt

Дата 14.12.2004, 16:39 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3

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

Цитата

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

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

Цитата

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

Это сообщение отредактировал(а) amt - 15.12.2004, 08:41

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »