home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
ipo-101.zip
/
Samples.zip
/
LOWNAME.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1998-03-08
|
392b
|
20 lines
(* This program converts a file's name to lowercase *)
program rename;
var
f : text;
procedure syntax;
begin
writeln('Converts a file''s name to lowercase');
writeln('Syntax: ivm lowame name');
exitcode := 1;
halt
end;
begin
if paramcount <> 1 then
syntax;
assign(f, paramstr(1));
rename(f, lowercase(paramstr(1)))
end.