topic Win32 API CopyFile does not work in Intel® Fortran Compiler

Win32 API CopyFile does not work

sjors — Thu, 03 Feb 2011 08:22:19 GMT

Hello,

I'm developing a workaround for a colleague that needs to perform a lot of copy statements. "Call System("copy..")" does not work in this case. Therefore I tried to call the win32 API CopyFile using the kernel32 module. It gives the following errormessage:

Error: The same named entity from different modules and/or program units cannot be referenced. [COPYFILE]

The win32 API MoveFile workes fine though. I use compiler 10.1.029.

Here's the samplecode:

[fortran]Program CopyFile

Use Kernel32

Implicit None

Integer(BOOL)      :: retval,NotOverWrite
Character(Len=200) :: lpExistingFileName,lpNewFileName
 
  NotOverwrite = 0

  lpExistingFileName = "D:\TestFile.txt"
  lpNewFileName = "D:\TestFile_copy.txt"

  retval = CopyFile(Trim(lpExistingFileName)//""C,Trim(lpNewFileName)//""C,FALSE)
  retval = MoveFile(lpExistingFileName,lpNewFileName)

End Program CopyFile
[/fortran]

Thanks in advance for any useful answers!

Cheers, Arjen

Win32 API CopyFile does not work

GVautier — Thu, 03 Feb 2011 09:14:13 GMT

Hello

Your program is named CopyFile so it interfers with the function name.

Change "program CopyFile" to "program Copy_File" and it will work.

Win32 API CopyFile does not work

sjors — Mon, 07 Feb 2011 10:34:15 GMT

Auch, that indeed solves the problem. I thought Fortran was more tolerant in the name of the Program itself. Sorry to have bothered you with this, but thanks for the help anyway!

Cheers Arjen

Win32 API CopyFile does not work

Steven_L_Intel1 — Mon, 07 Feb 2011 15:49:57 GMT

In a Fortran program, no two entities in the "global" class may have the same name. These are: program units (main program, subroutines, functions, block data subprograms, modules), common blocks and external procedures.