Delete complete directory - GameCreators Forum

Author

Message

sberk

14

Years of Service

User Offline

Joined: 6th Jun 2010

Location: next to a cup of coffee

Posted: 15th Jul 2011 12:16 Edited at: 15th Jul 2011 12:18

Link

Hi,
I would like to delete a directory including all files and subdirectory. Since I can only delete empty directorys I just want to parse all possible subdirectorys to generate a list of files. I wanted to use a recursive function to achieve this.

My problem is, that every call of perform checklist for files overwrite the results of the former call. My first attemp to store it in a local array did not help, since I don't know how to declare local arrays (is it possible in darkbasic?). Is there any way to store the result of perform checklist localy?
sberK

+ Code Snippet

    
function generate_list(start_dir as string)
print start_dir    

    set dir start_dir 
    PERFORM CHECKLIST FOR FILES
    for t=1 to checklist quantity()
        if not ((checklist string$(t) = "..") or (checklist string$(t) = "."))
        if CHECKLIST VALUE A(t) = 0   
            array insert at bottom files_delete(0)
            files_delete() = start_dir + "\"+checklist string$(t)
         else
            print "directory="+checklist string$(t)
            generate_list(start_dir + "\"+checklist string$(t))
         endif 
    endif     
    next t
endfunction

Back to top

Profile PM

Hodgey

15

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 15th Jul 2011 12:43

Link

Quote: "My first attemp to store it in a local array did not help, since I don't know how to declare local arrays (is it possible in darkbasic?)."

Apparently, have a look at this:

+ Code Snippet

local dim Myarray(5) as integer
for n = 1 to 5
    MyArray(n) = (n + 1)^2
    text 0, n*30, "MyArray (first declaration): " + str$(MyArray(n))
next n

local_array()
wait key
end

function local_array()
    local dim Myarray(5) as integer
    for n = 1 to 5
        Myarray(n) = n - (n)^2
        text 0, n*30 + 200, "MyArray (function declaration): " + str$(MyArray(n))
    next n
endfunction

Arrays are automatically global by default. So have another try with local arrays using the local command.

Back to top

Profile PM Email

sberk

14

Years of Service

User Offline

Joined: 6th Jun 2010

Location: next to a cup of coffee

Posted: 15th Jul 2011 13:04 Edited at: 15th Jul 2011 13:05

Link

Hi, thanks a lot. The now working delete all function is:

+ Code Snippet

function delete_list(start_dir as string)   
    print start_dir    
    local dim act_sub_dir() as string 
    set dir start_dir 
    PERFORM CHECKLIST FOR FILES
    for t=1 to checklist quantity()
        if not ((checklist string$(t) = "..") or (checklist string$(t) = "."))
        if CHECKLIST VALUE A(t) = 0   
            delete file start_dir + "\"+checklist string$(t)
         else
            print "directory="+checklist string$(t)
            array insert at bottom act_sub_dir(0)
            act_sub_dir() = start_dir + "\"+checklist string$(t)
         endif 
    endif     
    next t
    for i =0 to array count(act_sub_dir())
        delete_list(act_sub_dir(i))
        delete directory act_sub_dir(i)
    NEXT
endfunction

But be carefull, I accidently deleted my whole test-project for developing this function

. If anybody can use this few lines, feel free.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Delete complete directory