Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.10;
Скачать: CL | DM;

Вниз

Не работает FindFirst   Найти похожие ветки 

 
Anton   (2003-01-31 15:47) [0]

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

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

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


 
Jel ©   (2003-01-31 15:52) [1]

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


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

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


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

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

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);



Страницы: 1 вся ветка

Текущий архив: 2003.02.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
1-28703
Миша444
2003-01-31 11:19
2003.02.10
Печать и просмотр..


1-28766
NsiSoft
2003-02-01 13:47
2003.02.10
Программное обеспечиние


3-28654
AndrewVolkov
2003-01-23 16:06
2003.02.10
Был interbase а теперь MS SQL 2000. А где транзакции???


1-28818
SaperXL
2003-01-31 03:58
2003.02.10
RichEdit - прокрутка вертикального скролла вниз


1-28899
Zirus
2003-01-30 06:08
2003.02.10
TabControl1