Wed, 18 Jun 1902 08:00:00 GMT
Help coverting code to TPW 1.5
Program ShowFiles(INput,output); Uses wincrt,winDos; Procedure ShowAllFilesIn(StartDir:String); ------> Var DirInfo:SearchRec; <------- Begin FindFirst(StartDir + '*.*', AnyFile, DirInfo); While DosError = 0 Do Begin If DirInfo.Attr = Directory Then Begin If Pos('.', DirInfo.Name) <> 1 Then { Skip '.' and '..' directories } ShowAllFilesIn(StartDir + DirInfo.Name + '\'); End Else WriteLn(StartDir + DirInfo.Name); FindNext(DirInfo); End; End; Begin ShowAllFilesIn('C:\'); End. I edited the code but I got an error. It has the arrows around it. I am using TPW 1.5, Hope you can figure it out cause this stuff is a little above my head. It says "error 3:unknown identfier" Thank in advance. JW#56 ====================================================== DoNe By ThE pEoPlE aT hApPy SoFtWaRe :-) Brvhart...@aol.com http:\\members.aol.com\brvhart662\index.html <-The Pascal Web Page
|