home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / dos_util / del0.zip / DEL0.PAS < prev    next >
Pascal/Delphi Source File  |  1993-07-14  |  1KB  |  50 lines
  1. PROGRAM Delete0ByteFiles;
  2. USES Dos;
  3. CONST
  4.      ProgData = 'DEL0- Free DOS utility: 0 byte file deleter.';
  5.      ProgDat2 = 'V1.00: July 14, 1993. (c) 1993 by David Daniel Anderson - Reign Ware.';
  6.      Usage    = '       Usage: DEL0 file_mask';
  7.  
  8. VAR
  9.    DirInfo     : SearchRec;
  10.    MaybeZero   : File of Byte;
  11.    MZName      : PathStr;
  12.    FMask       : PathStr;
  13.    FDir        : DirStr;
  14.    FName       : NameStr;
  15.    FExt        : ExtStr;
  16.    NZero       : Word;
  17.  
  18. BEGIN
  19.      Writeln(ProgData);
  20.      Writeln(ProgDat2);
  21.      Writeln(Usage);
  22.      Writeln;
  23.      NZero := 0;
  24.      IF ParamCount = 1 THEN
  25.         FMask := ParamStr(1)
  26.      ELSE BEGIN
  27.         Writeln('You must specify a file_mask, such as "*.*"!');
  28.         Halt;
  29.      END;
  30.      FSplit(FExpand(FMask),FDir,FName,FExt);
  31.      IF (FName = '') THEN
  32.         FMask := FMask + '*.*';
  33.      FindFirst(FMask, Archive, DirInfo);
  34.  
  35.      WHILE DosError = 0 DO
  36.      BEGIN
  37.           MZName := FDir+DirInfo.Name;
  38.           Assign(MaybeZero,MZName);
  39.  
  40.           IF (DirInfo.Size = 0) THEN BEGIN
  41.              Writeln('Deleting ',MZName);
  42.              Erase(MaybeZero);
  43.              NZero := NZero + 1;
  44.           END;
  45.  
  46.           FindNext(DirInfo);
  47.      END;
  48.      Writeln('Files Deleted: ',NZero);
  49. END.
  50.