RecFileListToArray.au3 and Subscript used with non-Array variable.

[tuatara]

Hi guys,

Hope you will help me once again.

If you connect a Apple computer on a network drive that is also used by windows computers,

it creates a lot of annoying .AppleDouble directories.

These are hidden for mac users but annoying for Windows users, and can be removed.

With your help i created this script:

#include <RecFileListToArray.au3>

; Declare paths

$sOldPath = @ScriptDir & "\Z-disk" ;

; Get list of directies within this path

$aList = _RecFileListToArray($sOldPath, "*.*", 2 , 1 , 1)

For $i = 1 To $aList[0]

$item = $aList[$i]

$aa = $aList[0]

;MsgBox ( 0,"Item is: ", $item)

;MsgBox ( 0,"number of items is: ", $aa)

$FullFilePath = $sOldPath & "\" & $item

;MsgBox ( 0,"Dit is FullFilePath: ", $FullFilePath)

If StringInStr($FullFilePath,".AppleDouble") Then

MsgBox ( 0,"This is a Apple .AppleDouble directory: ", $FullFilePath)

DirRemove ($FullFilePath , 1)

EndIf

Next

The script works great when it finds enough directories, but if it doesn't, i get this error:

Error: Subscript used with non-Array variable which is a fatal error that crashes the script.

Of course i have searched this forum (and Yahoo) but the only thing that seemed to be related

was adding FileChangeDir ( ) to scriptdir or to $sOldPath, here and there, but both did not help.

The weird thing is, that if i create a small tree with a few .AppleDouble maps in it,

the first time i run the script it works great, but after these terrible maps are moved and i fire up the script again,

it gives this well known Error: Subscript used with non-Array variable.

Any idea's how to prevent this crashes?

Thanks,

Tuatara

Edited October 31, 2011 by tuatara

[JohnOne]

Have you tried running the script from scite4autoit? It will show you exactly where the error is produced.

[BrewManNH]

Try it this way:

; Get list of directies within this path
$aList = _RecFileListToArray($sOldPath, "*.*", 2 , 1 , 1)
If IsArray($aList) Then
    For $i = 1 To $aList[0]
        $item = $aList[$i]
        $aa = $aList[0]
        ;MsgBox ( 0,"Item is: ", $item)
        ;MsgBox ( 0,"number of items is: ", $aa)
        $FullFilePath = $sOldPath & "\" & $item
        ;MsgBox ( 0,"Dit is FullFilePath: ", $FullFilePath)
        If StringInStr($FullFilePath,".AppleDouble") Then
            MsgBox ( 0,"This is a Apple .AppleDouble directory: ",$FullFilePath)
            DirRemove ($FullFilePath , 1)
        EndIf
    Next
EndIf

[tuatara]

Dear BrewManNH you have solved it !!!

Thanks a lot !

--------