件复制的样例代码

下面的样本代码应该在编辑窗口的命令模式下键入，而不是在文件输入/输出对话框中。

以下代码要求输入要复制的文件名以及要复制到的目标目录和文件。

C1=注释/输入,请键入要复制的文件。

,（包括完整文件路径）

C2=注释/输入,请键入目标文件名。

,（包括完整文件路径）

V1=FILE/EXISTS,C1.INPUT

如果/V1<>0

注释/操作者,存在要复制的文件。正在进行复制。

FILE/COPY,C1.INPUT,C2.INPUT,FAIL_IF_DEST_EXISTS

V2=FILE/EXISTS,C2.INPUT

如果/V2==0

COMMENT/OPER,“文件不存在于：”+ C2.INPUT

,正在终止复制。

ROUTINE/END

END_IF/

ELSE/

注释/操作者,文件复制成功。

ROUTINE/END

END_ELSEIF/

END_IF/

注释/操作者,要复制的文件不存在。

代码说明

该代码大部分与读取字符的样例代码或读取行的样例代码中所述类似。

下面仅介绍该示例独有的代码。

C1=COMMENT/INPUT
此行取用要复制的文件的完整路径，并将此路径填入 C1.INPUT 变量。

C2=COMMENT/INPUT
此行取用目标文件的完整路径，并将此路径填入 C2.INPUT 变量

FILE/COPY,C1.INPUT,C2.INPUT,FAIL_IF_DEST_EXISTS
此行将初始文件复制到目标文件。该命令有三个参数。