OpenEuphoria

Re: deleting files and accessing directory tree

• Posted by gbonvehi Oct 22, 2008
• 1057 views

You can include this code in your program and call deleteFile function which wraps Win32 API's DeleteFile function.

WARNING: Untested code (I don't have Windows here)! You can find a similar code in Win32Lib IIRC and/or Euphoria's Archives ( http://www.rapideuphoria.com/archive.htm )

include machine.e 
include dll.e 
 
constant 
    wKernel32           = open_dll("kernel32.dll"), 
    wDeleteFile         = define_c_func(wKernel32, "DeleteFileA", {C_POINTER}, C_LONG) 
 
function deleteFile(sequence name) 
	atom pname 
    atom retval 
	pname = allocate(length(name)+1) 
	poke(pname, name) 
	poke(pname+len,0) 
	retval = c_func(wDeleteFile,{pname}) 
	free(pname) 
	return retval 
end function 
 
if wKernel32 = 0 then 
    puts(1,"Error in open_dll(\"kernel32.dll\")\n") 
    abort(1) 
end if 

As stated by MSDN, deleteFile will return 0 if it fails. Link: http://msdn.microsoft.com/en-us/library/aa363915(VS.85).aspx

Hope this helps, Guillermo Bonvehí