NumFileToPurge : Integer;
Label
END_PROC;
Begin
MakePurgeFileList ( FileList ,NumFilesToPurge );
ErrorState := Success;
FileIndex := 0;
While ( FileIndex < NumFileToPurge ) do
Begin
FileIndex := FileIndex + 1 ;
If not FindFile ( FileList[ FileIndex ], FileHandle ) then
Begin
ErrorState := FileFindError;
17.6 goto
End;
If not OpenFile(FileHandle) then
Begin
ErrorState:=FileOpenError;
Goto END_PROC goto
End;
If not OverWriteFile(FileHandle) then
Begin
ErrorState:=FileOverWriteError;
Goto END_PROC goto
End;
If Erase( FileHandle ) then
Begin
ErrorState := FileEraseError;
Goto END_PROC goto
End
End;{while}
END_PROC; goto
DeletePurgeFileList( FileList ,NumFilesToPurge )