Subj : Re: Directory Contents in pascal
To   : Shawn Highfield
From : Sean Dennis
Date : Wed Oct 30 2024 21:06:12

SH> T> Does anyone have an example of pascal source code to just display the

I asked Microsoft Copilot your question and it gave me this:

program ListDirectory;

uses
  Dos;
var
  SR: SearchRec;
    
begin
  Writeln('Directory contents:');
  FindFirst('*.*', Archive, SR);
  while DosError = 0 do
    begin
      Writeln(SR.Name);
      FindNext(SR);
  end;
end.

It seems to work here okay.

-- Sean
                      

 

--- MBSE BBS v1.1.0 (Linux-x86_64)
 * Origin: Outpost BBS * Johnson City, TN (618:618/1)

.