Найти файл и скопировать в папку

[VBnovichok]

Привет всем
Помогите с кодом, который ищет все файлы на диске "С:\" с расширением "*.prn" и копирует их в папку "C:\Temp "

Спасибо

[Amed]

http://hiprog.com/vb/article.asp?id=293 - поиск файлов и добавление их в ListBox

Затем используй функцию:

Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

где lpExistingFileName - имя и путь к существующему файлу, lpNewFileName - "C:\Temp\" & имя файла, bFailIfExists - 1.

Понятна общая суть? Сам программу допишешь?

[VBnovichok]

Спасибо Amed за участие

Общая суть ясна

http://hiprog.com/vb/article.asp?id=293 - использует в работе дополнительный MSCOMCTL.OCX

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

Сами формы и диалоги мне не нужны нужен только код выполняющий вышеуказанную конкретную функцию.

Спасибо

P.S. Сделаем скидку на мои начальные познания VB

[Amed]

Значит, так
Всё очень просто - лишним элементом при ближайшем рассмотрении оказывается StatusBar stsBar. Его нам и надо ампутировать со всеми остальными

Лови пример!

[VBnovichok]

Что то не поймал, кинь в меня еще

Спасибо

[VBnovichok]

О....... увидел

То ли глюки на сервере то ли еще что..

ОК попробую разобраться

Спасибо

[VBnovichok]

Все работает отлично!!!!!!!!!!!!!
То что я и искал

Спасибо!!!!!!!!!!!!!!!!

P.S. Всегда к услугам