// File operation types
CONSTANT UnsignedInteger FO_MOVE =  1 
CONSTANT UnsignedInteger FO_COPY =  2 
CONSTANT UnsignedInteger FO_DELETE =  3 
CONSTANT UnsignedInteger FO_RENAME =  4 

// File operation flags
CONSTANT UnsignedInteger FOF_MULTIDESTFILES =  1 
CONSTANT UnsignedInteger FOF_CONFIRMMOUSE =  2 
CONSTANT UnsignedInteger FOF_SILENT =  4 
CONSTANT UnsignedInteger FOF_RENAMEONCOLLISION =  8 
CONSTANT UnsignedInteger FOF_NOCONFIRMATION =  16 
CONSTANT UnsignedInteger FOF_WANTMAPPINGHANDLE =  32 
CONSTANT UnsignedInteger FOF_ALLOWUNDO =  64 
CONSTANT UnsignedInteger FOF_FILESONLY =  128 
CONSTANT UnsignedInteger FOF_SIMPLEPROGRESS =  256 
CONSTANT UnsignedInteger FOF_NOCONFIRMMKDIR =  512 
CONSTANT UnsignedInteger FOF_NOERRORUI =  1024 
CONSTANT UnsignedInteger FOF_NOCOPYSECURITYATTRIBS	=  2048 


type os_shfileopstruct from structure
	unsignedlong		hwnd
	unsignedlong		wfunc
	blob		pfrom
	blob		pto
	unsignedinteger		fflags
	unsignedlong		banyoperationsaborted
	unsignedlong		hnamemappings
	string		lpszprogresstitle
end type


Function Long SHFileOperation(os_shfileopstruct lpFileOp) ALIAS FOR SHFileOperationA Library "SHELL32.DLL"

os_shfileopstruct	lstr_FileOp
Integer li_rc

lstr_FileOp.hWnd                  = Handle(aw_requestor) //handle of a requesting window
lstr_FileOp.wFunc                 = FO_DELETE
lstr_FileOp.pFrom                 = Blob( as_SourceFile + Space( 2 ) )
BlobEdit( lstr_FileOp.pFrom, Len( as_sourcefile ) +  1 , Char( 0 ) )
BlobEdit( lstr_FileOp.pFrom, Len( as_sourcefile ) +  2 , Char( 0 ) )
lstr_FileOp.fFlags                = FOF_NOCONFIRMATION  + FOF_SILENT //no user prompts
lstr_FileOp.hNameMappings         =  0 
lstr_FileOp.lpszProgressTitle     = Space( 10 )

li_rc = SHFileOperationA( lstr_FileOp )
IF li_rc <>  0  THEN
	IF NOT IsNull( lstr_FileOp ) THEN
		IF lstr_FileOp.bAnyOperationsAborted =  1  THEN
			RETURN  0 
		END IF
	END IF
ELSE
	RETURN - 1 
END IF
RETURN  1