home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Current Shareware 1994 January
/
SHAR194.ISO
/
dos_util
/
del0.zip
/
DEL0.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-07-14
|
1KB
|
50 lines
PROGRAM Delete0ByteFiles;
USES Dos;
CONST
ProgData = 'DEL0- Free DOS utility: 0 byte file deleter.';
ProgDat2 = 'V1.00: July 14, 1993. (c) 1993 by David Daniel Anderson - Reign Ware.';
Usage = ' Usage: DEL0 file_mask';
VAR
DirInfo : SearchRec;
MaybeZero : File of Byte;
MZName : PathStr;
FMask : PathStr;
FDir : DirStr;
FName : NameStr;
FExt : ExtStr;
NZero : Word;
BEGIN
Writeln(ProgData);
Writeln(ProgDat2);
Writeln(Usage);
Writeln;
NZero := 0;
IF ParamCount = 1 THEN
FMask := ParamStr(1)
ELSE BEGIN
Writeln('You must specify a file_mask, such as "*.*"!');
Halt;
END;
FSplit(FExpand(FMask),FDir,FName,FExt);
IF (FName = '') THEN
FMask := FMask + '*.*';
FindFirst(FMask, Archive, DirInfo);
WHILE DosError = 0 DO
BEGIN
MZName := FDir+DirInfo.Name;
Assign(MaybeZero,MZName);
IF (DirInfo.Size = 0) THEN BEGIN
Writeln('Deleting ',MZName);
Erase(MaybeZero);
NZero := NZero + 1;
END;
FindNext(DirInfo);
END;
Writeln('Files Deleted: ',NZero);
END.