#DEFINE CREATE_ALWAYS 2
#DEFINE FILE_ATTRIBUTE_NORMAL 128
 
DO declare
 
lpFileName = "C:\Temp\mytest.txt"
lpNewFileName = "C:\Temp\mytest1.txt"
 
hFile = CreateFile(lpFileName, 0, 0, 0,;
    CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
 
? "File handle returned:", hFile
= CloseHandle (hFile)
= MoveFile(lpFileName, lpNewFileName)
 
PROCEDURE declare
    DECLARE INTEGER MoveFile IN kernel32;
        STRING lpExistingFileName, STRING lpNewFileName
 
    DECLARE INTEGER CreateFile IN kernel32;
        STRING lpFileName, INTEGER dwDesiredAccess,;
        INTEGER dwShareMode, INTEGER lpSecurityAttributes,;
        INTEGER dwCreationDisposition,;
        INTEGER dwFlagsAndAttributes, INTEGER hTemplateFile
 
    DECLARE INTEGER CloseHandle IN kernel32 INTEGER hObject