whats wrong with this script

[nonplayablecharacter]

Can anyone tell me why MOST of the time im getting a message saying i have too many subscript or range is exceeded even though i have 'if not @ error then'

it happens at lines:

9.DirRemove("C:\Test1\" & $Dir[$num], 1)--------------------------->happens if no folders exist

____________________________^Array too many or too high

18.FileDelete("C:\Test1\" & $Dir2[$num2])----------------------------->happens after creating a folder in the directory

_____________________________^Array too many or too high

Pictures at bottom

CODE

#include <File.au3>

While 1

$Dir=_FileListToArray ( "C:\Test1" , "*", 2)

If not @error Then

$num=1

Do

DirRemove("C:\Test1\" & $Dir[$num], 1)

$num=$num+1

until $num=$Dir[0]+1

EndIf

$Dir2=_FileListToArray ( "C:\Test1" , "*", 1)

If not @error Then

$num2=1

Do

FileDelete("C:\Test1\" & $Dir2[$num2])

$num2=$num2+1

until $num2=$Dir2[0]+1

EndIf

Wend

PS: It's even worse without do...until because there needs to be "# of folders=# of files" which is almost impossible

Edited August 21, 2008 by nonplayablecharacter

[zorphnog]

I'm not sure why you have all of this in a While loop, but thats beside the point. Ever used a For...To... loop?

#include <File.au3>

While 1
    $arDirs = _FileListToArray ( "C:\Test1" , "*", 2)
    If Not @error Then
        For $i=1 To $arDirs[0]
            DirRemove("C:\Test1\" & $arDirs[$i], 1)
        Next
    EndIf
    
    $arFiles = _FileListToArray ( "C:\Test1" , "*", 1)
    If Not @error Then
        For $i=1 To $arFiles[0]
            FileDelete("C:\Test1\" & $Dir2[$i])
        Next
    EndIf
Wend

[Valuater]

maybe....

#include <File.au3>

$Location = @ScriptDir & "\" ; "C:\Test1"

$Dir = _FileListToArray($Location, "*", 2)

For $x = 1 To $Dir[0]
    
    $Files = _FileListToArray($Location & $Dir[$x] & "\", "*", 1)

    For $i = 1 To $Files[0]
        ;FileDelete($Location & $Dir[$x] & "\" & $Files[$i])
        ConsoleWrite("deleted file - " & $Location & $Dir[$x] & "\" & $Files[$i] & @CRLF)
    Next
    
    ;DirRemove($Location & $Dir[$num], 1)
    ConsoleWrite("> dir removed - " & $Location & $Dir[$x] & @CRLF)
Next

you have to remove the files first AFAIK..

8)