Rename a file: Difference between revisions

=={{header|Action!}}==

The attached result has been obtained under DOS 2.5.

{{libheader|Action! Tool Kit}}

<lang Action!>INCLUDE "D2:IO.ACT" ;from the Action! Tool Kit

PROC Dir(CHAR ARRAY filter)

BYTE dev=[1]

CHAR ARRAY line(255)

Close(dev)

Open(dev,filter,6)

DO

InputSD(dev,line)

PrintE(line)

IF line(0)=0 THEN

EXIT

FI

OD

Close(dev)

RETURN

PROC Main()

CHAR ARRAY filter="D:*.*",

cmd="D:INPUT.TXT OUTPUT.TXT"

Put(125) PutE() ;clear screen

PrintF("Dir ""%S""%E",filter)

Dir(filter)

PrintF("Rename ""%S""%E%E",cmd)

Rename(cmd)

PrintF("Dir ""%S""%E",filter)

Dir(filter)

RETURN</lang>

{{out}}

[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Rename_a_file.png Screenshot from Atari 8-bit computer]

<pre>

Dir "D:*.*"

DOS SYS 037

DUP SYS 042

INPUT TXT 011

617 FREE SECTORS

Rename "D:INPUT.TXT OUTPUT.TXT"

Dir "D:*.*"

DOS SYS 037

DUP SYS 042

OUTPUT TXT 011

617 FREE SECTORS

</pre>