Найти файл

← →
selena (2003-12-19 08:53) [0]

Здраствуйте
При попытке перейти в найденную директорию и считать найденный файл.Стопрориться на while и выдаеть ошибку "Не могу считать такой-то файл".
В чем тут дело?
r := FindNext(DirInfo);
ChDir("c:\watcher\"+DirInfo.Name);
//попытка считать
begin
if FindFirst( "C:\watcher\*.txt", faAnyFile AND nOT fADirectory, Rist ) = 0 then
begin
while FindNext( Rist ) = 0 do
begin
RichEdit1.Lines.LoadFromFile( Rist.Name );

← →
Anatoly Podgoretsky (2003-12-19 08:55) [1]

Наверно в текущем каталоге такого файла нет

← →
selena (2003-12-19 09:00) [2]

Там есть такой файл и он говорит наден такой-то файл и не могу его открыть ,Файл не реад онли.

← →
han_malign (2003-12-19 09:07) [3]

Особенно меня радует, что первый(и возможно единственный?) найденный файл пропускается...

Как по вашему, что означает Find First и Find Next?

← →
han_malign (2003-12-19 09:10) [4]

if FindFirst(...)=0 then
repeat
until FindNext(...)<>0;

← →
han_malign (2003-12-19 09:12) [5]

ну и по существу:
.....
RichEdit1.Lines.LoadFromFile( "C:\watcher\"+Rist.Name );

← →
selena (2003-12-19 09:19) [6]

Просто оказывается .Сейчас проверю, а то я тут такое замутил, что даже то что работало неработает.Большое спасибо за поддержку.

← →
Anatoly Podgoretsky (2003-12-19 09:26) [7]

Что ты говоришь, файлы ищешь в C:\watcher\, а считывать пытаешься в c:\watcher\"+DirInfo.Name);

← →
selena (2003-12-19 09:41) [8]

Написал такой текст:
Выдает ошибку Cannot open "c:\watcherVunreable.txt".
Это что за зверь?
begin
if FindFirst( "c:\watcher\"+DirInfo.Name+"\*.txt", faAnyFile AND nOT fADirectory, Rist ) = 0 then begin
repeat
begin
RichEdit1.Lines.LoadFromFile("c:\watcher"+ Rist.Name );
end;
until FindNEXT( Rist ) <> 0;
end;

← →
Anatoly Podgoretsky (2003-12-19 09:52) [9]

Недопустимый вормат файла и опять загрузка из левого каталога.

← →
selena (2003-12-19 10:03) [10]

т.есть? я думаю что он ищет в "c:\watcher\"+DirInfo.Name+"\*.txt" а там есть такой файл.

← →
Dred2k (2003-12-19 10:11) [11]

> Недопустимый вормат файла

Да... Это мощно.
Слэшем это не объяснить...

← →
Anatoly Podgoretsky (2003-12-19 10:19) [12]

Там может и есть, а вот в c:\ сомнительно.

Прошу прощения за Anatoly Podgoretsky © (19.12.03 09:52) [9], мне показалось, что это два слеша, так что с форматом имени все в порядке.

← →
selena (2003-12-19 12:22) [13]

Я тут прогрнял несколько раз по новой .Почему он сначала обращается на c:\watcher потом на c:\ а только потом находит каталоги?

← →
panov (2003-12-19 12:35) [14]

if FindFirst( "c:\watcher\"+DirInfo.Name+"\*.txt", faAnyFile - fADirectory, Rist ) = 0 then begin
repeat
begin
RichEdit1.Lines.LoadFromFile( "c:\watcher\"+DirInfo.Name+"\"+Rist.Name);
end;
until FindNEXT( Rist ) <> 0; //а это вообще непонятно зачем

← →
Anatoly Podgoretsky (2003-12-19 12:44) [15]

selena (19.12.03 12:22) [13]
ShowMessage("c:\watcher"+ Rist.Name);

Найти файл Найти похожие ветки