Форум: "Основная";
Текущий архив: 2003.02.10;
Скачать: [xml.tar.bz2];
ВнизНе работает 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c