Fortran 中如何实现文件的复制

如要将 文件 e:\document\rgb.txt  拷贝到根目录下

program main
implicit none
integer*4::result
integer,external::systemqq
result=systemqq('copy e:\document\rgb.txt  e:\rgb.txt')
end

此外，fortran中函数RENAME也可实现此目的

RENAME

Portability Function: Renames a file.

Module: USE DFPORT

Syntax

result = RENAME (from, to)

from

(Input) Character*(*). Path of an existing file.

to

(Input) Character*(*). The new path (see Warning below).

Results:

via Fortran 中如何实现文件的复制 - 老坊的日志 - 网易博客.