Выполняется только первый файл, который я создаю, что делать???

← →
baromir (2004-04-06 11:43) [0]

if FindFirst("*.cer", faAnyFile, searchResult2) = 0 then
begin
repeat
GetDir (0,Sdir);
aaa6:= sdir+"\"+ searchResult2.Name;
aa6_1:=PAnsiChar(aaa6);

SetCurrentDir("c:\2\openssl");
Vfb:="";
AssignFile( Vfb, aaa6+".bat" );
Rewrite(Vfb);
Append( Vfb);
SetCurrentDir("c:\2\openssl");
GetDir (0,Sdir);
Writeln( Vfb,"openssl.exe x509 -in "+ aaa6 +" -noout -text >"+aaa6+".info");
Flush( Vfb );
CloseFile( Vfb );
aaa6:=aaa6+".bat";
ShellExecute(Handle,"open",Pchar(aaa6), nil,nil, SW_SHOWNORMAL);

← →
xShadow © (2004-04-06 12:14) [1]

Что то я FindNext не бачу в данном коде

if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then Begin Repeat Until FindNext(sr) <> 0; FindClose(sr); end;

Выполняется только первый файл, который я создаю, что делать??? Найти похожие ветки