| Вопрос: CopyFile | Добавлено: 01.07.07 11:24 |
Автор вопроса:  Gogic
|
| Извините за мегатупой вопрос, но как скопировать все файлы (*.*) из одного каталога в другой? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Silver Ferrum ICQ: 422640045 Вопросов: 12 Ответов: 144 |
Профиль | | #1 | Добавлено: 01.07.07 13:38 |
|
я считаю, что сначало, надо через Dir [ находить файл, а потом через
 pathname[, attributes] ] FileCopy "", "" копировать.
Ну что-то может типа такого выйдет: Dim MyFile as String MyFile = Dir("C:\[какой-то путь]\*.*"
' Возвратит имя файла с расширением INI. ' Если файлов несколько, то возвратится имя первого файла. ' Снова вызываем ф-цию Dir, только без параметров, чтобы получить имя следующего файла Do While MyFile <> "" ' Начало цикла FileCopy "[C,D,E]:\[какой-то путь]\" & MyFile , "Some Path" MyFile=Dir Loop |
||
|
Номер ответа: 2 Автор ответа: StuartВопросов: 5 Ответов: 152 |
Профиль | | #2 | Добавлено: 06.07.07 01:12 |
|
Можно через объект FileSystemObject
Для использования объекта в своих проектах нужно установить ссылку на Microsoft Scripting Runtime(Project->References...(проект->Информация))далее кинь кнопку на форму и вот к ней код: On Error Resume Next Dim fso As FileSystemObject Set fso = New Scripting.FileSystemObject fso.CopyFile "C:\1\*", "d:\" в этом примере с "C:\1" копируються все файлы в "  :\"
справочник по работе с библиотекой FSO ты можешь скачать от сюда: http://vbrus.narod.ru/Directory.htm |
||
Страница: 1 |