| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Не работает FindFirst

Anton ©   (2003-01-31 15:47:00) 

Mask:=ExtractFilePath(Source)+"*.*";
if (FindFirst(Mask,faAnyFile, F)=0) then

возвращает "."

а при
Mask:=ExtractFilePath(Source)+"*.txt";
if (FindFirst(Mask,faAnyFile, F)=0) then
все работает

---

Vovchik_A   (2003-01-31 18:27:00) [1]

Ну на скорую руку это где-то вот так должно выглядеть приблизительно

FindFirst(SetupDir+"\*.*", 0 , sr1); // Находим все файлы в каталоге
if sr1.name<>"" then
repeat
if (sr1.name<>".")and(sr1.name<>"..") then begin
CopyFile(SourceDir+"\"+sr1.Name,SS, nil);
end;
until (FindNext(sr1) <> 0);


---

Anatoly Podgoretsky   (2003-01-31 16:56:00) [2]

Ну раз вернул точку значит работает, твое дело, что с ней делать.

---

Jel   (2003-01-31 15:52:00) [3]

Все правильно. В каталоге как известно есть 2 служебных записи. Одна (.) ссылается на сам каталог, вторая (..) на родительский каталог. Вот эту ссылку ты и получаешь. Если нужны только файлы укажи маску faAnyFile-faDirectory-faVolumeID

---

Наверх