Файлы, почему при работе с FindFirst, FindNext, CopyFile ,если

← →
ossa (2003-08-19 07:01) [0]

задать маску для копирования *.txt, *.ok или др. работает нормально, а если задать *.* не работает. В чем дело?

← →
Verg © (2003-08-19 07:07) [1]

В 15-той строке неверно задано условие.

← →
ossa (2003-08-19 07:11) [2]

можно уточнение?

← →
Verg © (2003-08-19 07:15) [3]

> можно уточнение?

Нет, я только начинающий телепат :)

Или этот вопрос вы себе задали?

Это было бы правильней.

← →
ossa (2003-08-19 07:18) [4]

Да!, откуда, ты узнал, ничего себе.

← →
Palladin © (2003-08-19 07:25) [5]

> ossa (19.08.03 07:18) [4]

Не борзей, по делу прикололись.
Код покажи.

← →
ossa (2003-08-19 07:27) [6]

>Verg © (19.08.03 07:15) [3]

>> можно уточнение?

>Нет, я только начинающий телепат :)

>Или этот вопрос вы себе задали?

>Это было бы правильней.

Ты прям, как матрица! :)

← →
Verg © (2003-08-19 07:32) [7]

> ossa (19.08.03 07:27) [6]

Шутки в сторону. Если тебе надо ответ, то задай вопрос нормально, а на вопрос "не работатет findfirst. В чем дело?" ты ничего не получишь, просто потому, что у всех работает.

← →
ossa (2003-08-19 08:01) [8]

работает если выставлять расширение любое кроме *.*
в переменной Maska

procedure SetLinkDial(StrDial, StrDialed,StrBad:string);
var
flag :integer;
vStr,Name:string;
vDialing:Boolean;
StrFlag:TSearchRec;
begin
Name:=StrDial+Maska;
flag:=FindFirst(Name,faAnyfile,StrFlag);
if flag<>0 then
MessageDlg("

← →
Calm © (2003-08-19 08:20) [9]

Еще ты забыл написать в чем выражается нерабочесть.

И что-то я не заметил, где проверяешь, что найденный файл не называется "." и "..".

← →
ossa (2003-08-19 08:45) [10]

>Calm © (19.08.03 08:20) [9]
>Еще ты забыл написать в чем выражается нерабочесть.

если ставлю в Maska:=*.* то компил. проходит только по следующим кодам
Name:=StrDial+Maska;
flag:=FindFirst(Name,faAnyfile,StrFlag);
if flag<>0 then
vDialing:=SendDialup(StrFlag);
if vDialing=false then
if not DirectoryExists(StrDialed) then
vStr:=ChangeFileExt(StrFlag.Name,"."+MaskGood);
name:=StrDialed+vStr;//MaskGood;
if not CopyFile(PChar(StrDial+StrFlag.Name),PChar(name),false)
raise Exception.Create("Cannot to copy")
т.е. не хочет копировать
А если к примеру у меня в папке
StrDial:="c:\a1\" лежат файлы с расширением Maska:="*.txt" то все работает корректно

>И что-то я не заметил, где проверяешь, что найденный файл не >называется "." и "..".
Name:=StrDial+Maska;

← →
Palladin © (2003-08-19 08:48) [11]

> Name:=StrDial+Maska

и что? это проверка чтоли?

В каталогах имеют место находится две директории с именами "." и "..". Для чего они, тебе знать необязательно, будет интересно сам найдешь. Вот и проверяй что ты нашел.

← →
ossa (2003-08-19 08:59) [12]

FindFirst(Name,faAnyfile,StrFlag); как раз и показывает что нашел
" ."
"." , ".." - это текущий и родительский каталог (или что, то другое)

Ты не вкуриваешь...

".",".." это имена которые могут тебе попасться при сканировании каталога, почему ты не рассматриваешь эту возможность? Почему не фильтруешь? Как ты будешь копировать "c:\temp\.." в "c:\winnt\.."?

← →
ossa (2003-08-19 09:23) [14]

Извените, если я правильно понял то компиллятор натыкаеться на
"." и ".." и прекращает работу, т.е. ссылка произсходит на все родительские и текущие файлы. Спасибо за помощь.

Неправильно понял, компилятору глубоко на это плевать

← →
ossa (2003-08-19 09:49) [16]

ну да, программа то компилируеться. Сейчас переправлю прогу, посмотрю. Спасибо , если что будтье на готове(в основном). СПАСИБО!

Файлы, почему при работе с FindFirst, FindNext, CopyFile ,если Найти похожие ветки