#DEFINE CREATE_ALWAYS                  2
#DEFINE FILE_ATTRIBUTE_NORMAL        128
 
DECLARE INTEGER DeleteFile IN kernel32;
    STRING lpFileName
 
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
 
LOCAL lpFileName
lpFileName = "C:\Temp\mytest.txt"
 
hResult = CreateFile (lpFileName, 0, 0, 0,;
    CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
 
? "File handle returned:", hResult
= CloseHandle (hResult)
= DeleteFile (lpFileName)