OpenEuphoria

Re: Deleting a file

• Posted by Marcel Kollenaar <M.Kollenaar at SLO.NL> Apr 30, 1997
• 1086 views

Architek wrote:

I tested your function and got an dosserror 3. It meant that is could
not find the path. So I tried it with a path and my file was deleted.

Marcel Kollenaar

--Code --

include machine.e

-- SYS_DEL()
-- Uses DOS INT #21, service #41 to delete a file given an ASCIIZ
filename
-- Returns 1 if succesfull, else return 0 and displays DOS error code
with trace
-- INT reference: HelpPC 2.1
function sys_del(sequence filename)
    sequence reg_list
    integer buff

    buff = allocate_low(length(filename)+1)
    poke(buff,filename)
    poke(buff+length(filename),0)

    reg_list = repeat(0,10)

    reg_list[REG_AX] = #4100
    reg_list[REG_DS] = floor(buff/16)
    reg_list[REG_DX] = remainder(buff,16)

    reg_list = dos_interrupt(#21,reg_list)
    free_low(buff)

    if remainder(reg_list[REG_FLAGS],2) != 0 then
        puts(1, "DOS error number :")
        print(1,reg_list[REG_AX])
        puts(1,"\n")
        return 0
    else
        return 1
    end if
end function
trace(1)
integer a
a = sys_del("c:\\euphoria\\pex\\test.asc")