VBNet - Форум - Копирование папки с файлами

Вопрос: Копирование папки с файлами Добавлено: 24.12.08 13:04

Автор вопроса: alfred

Почитал кучу инф а для себя простенькую не нашел.
Подскажите пжалуста!
есть папка с:\архив в нем еще 2 папки утро и вечер а в них excel файлы
нужно папку архив скопировать с вложенными папками в с:\архив за месяц\(inputbox("Декабрь"))
как примерно будет смотрется код в VBA. с использование fso не получается. видемо руки кривые или офис не полный
Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #1	Добавлено: 24.12.08 17:02
	FSO не обязательно использовать. Существуют встроенные операторы и функции для работы с файлами и папками. Ну, код может смотреться по разному. Но в нём скорее всего обязательно должен быть хотя бы один цыкл. Для примера могу скинуть пример в Word. Но там чуть проще задача была. И комментариев я мало делал, т.к. для меня это было просто и комментарии излишни. Ответить

Номер ответа: 2 Автор ответа: Jasmin Вопросов: 23 Ответов: 417	Профиль \| \| #2	Добавлено: 24.12.08 17:50
	Попробуй вот так: iSource = "C:\архив" iDestination = "C:\архив за месяц" On Error GoTo ErrHandler With CreateObject("Scripting.FileSystemObject") If .FolderExists(iSource) = True Then .CopyFolder iSource, iDestination ', True Else MsgBox "Копирование невозможно, ввиду отсутствия папки", , "" End If End With ErrHandler: If Err.Number <> 0 Then MsgBox Err.Description, vbCritical, "" End If Ответить

Номер ответа: 3 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #3	Добавлено: 25.12.08 18:33
	Или юзай функции shell32, там реализованы стандартные функции работы с папками/файлами. Ну или на крайняк рекурсивно глядеть папки и копировать файлы) Ответить

Номер ответа: 4 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #4	Добавлено: 25.12.08 18:53
	Проверить щас немогу, а интересно, Палач, мож ты пробовал уже, при юзании этих апи появляются стандартные системные окошки с анимацией копирования/переноса/удаления и т.д.? Ответить

Номер ответа: 5 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #5	Добавлено: 25.12.08 19:50
	Можно форсировать отображение, да. Если надо, то они не будут появляться. Ответить

Страница: 1 |