「移動檔案」的範例代碼

以下範例代碼應在「編輯」視窗的命令模式下輸入，而非在檔案 I/O 對話方塊內輸入。

以下代碼要求輸入要移動的檔案的名稱、位置目錄以及所要移到的檔案的名稱。然後再執行檔案移動操作。

C1=COMMENT/INPUT,,請鍵入要移動的檔案。

,（包括完整的檔案路徑）

C2=COMMENT/INPUT,請鍵入目標檔名。

,（包括完整的檔案路徑）

V1=FILE/EXISTS,C1.INPUT

IF/V1<>0

COMMENT/OPER,檔案存在，可以移動。檔案移動開始。

FILE/MOVE,C1.INPUT,C2.INPUT

V2=FILE/EXISTS,C2.INPUT

IF/V2==0

COMMENT/OPER,「檔案不存在於：」+ C2.INPUT

,MOVE 沒有正常執行。

ROUTINE/END

END_IF/

ELSE/

COMMENT/OPER,檔案移動成功。

ROUTINE/END

END_ELSE/

END_IF/

COMMENT/OPER,原始檔案不存在。請重試。

代碼說明

此中許多代碼類似於在「檔案範例代碼」中說明的代碼。

此處僅對本例獨有的代碼進行了說明。

FILE/MOVE,C1.INPUT,C2.INPUT
此行將初始檔案複製到目標檔案。此條命令取用兩個參數。