下面的样本代码应该在编辑窗口的命令模式下键入,而不是在文件输入/输出对话框中。
以下代码要求输入要移动的文件名以及要移动到的位置目录和文件名。然后执行文件移动操作。
C1=注释/输入,请键入要移动的文件。
,(包括完整文件路径)
C2=注释/输入,请键入目标文件名。
,(包括完整文件路径)
V1=FILE/EXISTS,C1.INPUT
如果/V1<>0
注释/操作者,存在要移动的文件。正在移动文件。
FILE/MOVE,C1.INPUT,C2.INPUT
V2=FILE/EXISTS,C2.INPUT
如果/V2==0
COMMENT/OPER,“文件不存在于:”+ C2.INPUT
,无法正确移动。
ROUTINE/END
END_IF/
ELSE/
注释/操作者,文件移动成功。
ROUTINE/END
END_ELSEIF/
END_IF/
注释/操作者,原文件不存在。请重试。
代码说明
该代码大部分与文件的样例代码中所述类似。
下面仅介绍该示例独有的代码。
FILE/MOVE,C1.INPUT,C2.INPUT
此行将初始文件复制到目标文件。此条命令取用两个参数。
参数 1 是 C1.INPUT。这是要移动的文件的完整路径。
参数 2 是 C2.INPUT,或者说是目标文件的完整路径。