var temp : string
var streamNumber : int

function slash : string
    if length (Dir.Current) = 3 then  %if you are at the root of a drive
        result ""
    else
        result "/"
    end if
end slash

procedure delete2 (path : string)
    Dir.Change (path)
    temp := ""
    streamNumber := Dir.Open (path)
    assert streamNumber > 9
    loop
        temp := Dir.Get (streamNumber)
        exit when temp = ""
        if temp not= "." and temp not= ".." then
            if Dir.Exists (temp) then
                delete2 (Dir.Current + slash + temp)
            else
                File.Delete (temp)
            end if
        end if
    end loop
    Dir.Close (streamNumber)
    Dir.Delete (path)
    streamNumber := Dir.Open ("..")
end delete2

% don't give a final slash ("/") to the parameter for this procedure
procedure del_dir (path : string)
    var stream := Dir.Open (path)
    loop
        var next := Dir.Get (stream)
        exit when next = ""
        if File.Exists (path + "/" + next) then     % it's a file!
            File.Delete (path + "/" + next)

        % it's a directory! (but don't act on the current or parent directory)
        elsif next ~= "." and next ~= ".." then
            del_dir (path + "/" + next)
            Dir.Delete (path + "/" + next)
        end if
    end loop
    Dir.Close (stream)
    Dir.Delete (path)
end del_dir

del_dir ("C:/test")