Jump to content

Recommended Posts

Posted

I have a script which was working for months. But somehow is throwing this error  

"subscript used on non accessible variable"

ReDim $aArray2D[$aArray[0]+1][2]
ReDim $aArray2D[$aArray^ ERROR

I used the Ubound but still not workinbg. How can I used uBound  on this For  $i = 1 TO Ubound ($aArray[0]) - 1 . It seems am not getting around this and why this error when it was working before.

Global $spath = "C:\Automation\Air_List\unassigned"
$Extract = "C:\Automation\Air_List\urgent"
$checkpath = StringRegExp($spath,"^.+\\$",0)
If $checkpath = 0 Then $spath = $spath & "\"
$aArray = _FileListToArray($spath, "*.RDF", 1)

Global $aArray2D[10][2]
ReDim $aArray2D[$aArray[0]+1][2]
$aArray2D[0][0] = $aArray[0]
sleep(100)
For $i = 1 TO $aArray[0]
    $aArray2D[$i][0] = $aArray[$i]
    $aArray2D[$i][1] = FileGetTime($spath & "\"  & $aArray[$i],1,1)  ;;;0=Last modified, 1=created, 2=last accessed  FileGetTime ( "filename" [, option = 0 [, format = 1 return string and 0 rerturn array]] )
Next
_ArraySort($aArray2D,1,1,"",1)
 

  • Moderators
Posted

great77,

Where is the error-checking to confirm that you have a valid array returned by the _FileListToArray call before trying to access it?

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

  Reveal hidden contents

 

Posted (edited)

I assume that _FileListToArray returns an error and hence does not create $aArray.
So check for an error after callung _FileListToArray.

Edit: Too slow ;)

Edited by water

My UDFs and Tutorials:

  Reveal hidden contents

 

Posted
  On 1/19/2017 at 9:07 AM, Melba23 said:

great77,

Where is the error-checking to confirm that you have a valid array returned by the _FileListToArray call before trying to access it?

M23

Expand  

I did not do that. How will I do that ? Thanks for your time 

Posted

Example:

$aArray = _FileListToArray($spath, "*.RDF", 1) 
If @error Then Exit MsgBox(0, "Error", "_FileListToArray returned @error = " & @error)

My UDFs and Tutorials:

  Reveal hidden contents

 

Posted

:)

My UDFs and Tutorials:

  Reveal hidden contents

 

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...