how to delete a directory

[netegg]

del('d:')
Func del($current)
    Local $search = FileFindFirstFile($current & "\*.*")
    While 1
        Dim $file = FileFindNextFile($search)
        If @error Then ExitLoop
        If Stringinstr($current & "\" & $file, "html") Or Stringinstr($current & "\" & $file, "image") Then
            If Not (FileGetAttrib($current & "\" & $file)= 'D') Then
                del($current & "\" & $file)
            EndIf
        endif
        del($current & "\" & $file)
    WEnd
EndFunc   ;==>del

I use the code above to empty a directory. But I found it will keep the subdir away. How should I do?

[water]

Wouldn't DirRemove ( "path" , 1) delete files and subdirectories (like the DOS DelTree command)?

[netegg]

so foolish I am! I made a mistake in my script.

Edited November 19, 2010 by netegg

[JLogan3o13]

not all of subdirectory.

Perhaps it would help if you give us an idea of the directory structure you're trying to delete, and how deep you're trying to go? When I create the structure below, DirRemove deletes it all just fine.

C:\Test

|->Test.txt

|-->Test2 (Folder)

|->Test.txt

|-->Test3 (Folder)

|->Test.txt

|-->Test4 (Folder)

|->Test.txt

|-->Test5 (Folder)

|->Test.txt

[JLogan3o13]

not all of subdirectory.

such as:

d:\xxx\html\xxxx\image---to be deleted

d:\xxx\html\xxx.xxx----not to be deleted

Do the files have an Attribute that is keeping them from being deleted, such as being marked Read Only?

[water]

so foolish I am! I made a mistake in my script.

So the problem has been solved?