home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
ipo-101.zip
/
Samples.zip
/
RENAME.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1998-03-08
|
409b
|
21 lines
(* This program renames a single file *)
program rename;
var
f : text;
procedure syntax;
begin
writeln('Renames a file');
writeln('Syntax: ivm rename old new');
writeln(' renames a file named ''old'' to ''new''');
exitcode := 1;
halt
end;
begin
if paramcount <> 2 then
syntax;
assign(f, paramstr(1));
rename(f, paramstr(2))
end.