VBNet - Форум - Перемещение файлов

Вопрос: Перемещение файлов Добавлено: 12.03.09 23:23

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

Имеется папка PFR, в ней находится активная рабочая книга, а также вложенные папки: OUT_PFR и ARHIV. Задача переместить все имеющиеся файлы из OUT_PFR в ARHIV Написал следующий код:

Private Sub Perenos()
Path = ActiveWorkbook.Path ' указал путь до рабочей папки
Path_OUT_PFR = Path + "\" + "OUT_PFR\" 'указал путь до 1-ой вложенной папки
Path_ARHIV = Path + "\" + "ARHIV\" 'указал путь до 2-ой вложенной папки
fo = Path_OUT_PFR + "*.*" ' указал, что выбрать необходимо все файлы в директории OUT_PFR
FileCopy fo, Path_ARHIV ' делаю перенос файлов и в этом месте возникает ошибка
End Sub

Подскажите, пожалуйста, что я делаю не так.
Ответить

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

Номер ответа: 1 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #1	Добавлено: 13.03.09 02:33
	PFR это не Пенсионный ли Фонд России? Блин кому я доверил свою пенсию? ) ФиляКопи не работает с подстановочными символами типа * он может скопировать тока один файл. Если не хочешь сам перебирать файлы, то попробуй так Shell "cmd /c copy папка_источник\. папка_назначения\" Ответить

Номер ответа: 2 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #2	Добавлено: 13.03.09 02:40
	А вообще там вроде и перенос есть готовый. Почитай, что ответит cmd /? Там много много всего. Ответить

Номер ответа: 3 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #3	Добавлено: 13.03.09 02:49
	Уже сплю и не соображаю, был шэл в вба или нет, вроде бы был Ответить

Страница: 1 |