Ben belli bir dizinde bulunan dosyaları listeler bir program yapmak istiyorum. Ben dosya ve de sadece dosya değil, bu dizinin üzerinde klasörleri listelemek istiyorum. Pascal Bunu nasıl yapabilirim? PHP varsa, belirtilen parametre, bir dizin (klasör) ise true döndürür "isDir" adında bir fonksiyonu vardır. Bu işlevi kullanarak, ben kullanıyorum "yol" Bir dosya veya klasör olup olmadığını kontrol edebilir.

Şimdi, dizindeki tüm dosyaları / klasörleri almak için FindFirst ve FindNext prosedürü kullanıyorum.

program mine;
uses dos;

var F: SearchRec
begin
    readln(dir);
    FindFirst('dir+'\.*.',anyFile,F);
    while DosError=0 do begin
        writeln(F.Name);
        FindNext(F);
    end;
end.