Question

Can you please tell me why I am getting the following error?

VBScript runtime error: This array is fixed or temporarily locked: ‘temp’

This is the code that is generating the error. I am unsure of how to resolve it.

I am just trying to unpack a file that is in DRY folder and move it to ACS folder.
Thank you very much

Set FSO = CreateObject("Scripting.FileSystemObject")
Set fldr = FSO.GetFolder("C:\Ebooks\DRY\")
For Each fil In fldr.Files
    If LCase( Right( fil.Name, 4 ) ) = ".zip" Then
        zipFilePath = fil.Path
        temp = file.Name
        temp = Left( temp, LEN(temp) - 4 ) ' remove the .zip
        temp = Split( temp, "_" ) ' split base name away from month-day-year
        temp = temp( UBOUND(temp) ) ' get just month-day-year
        temp = Split( temp, "-" ) ' get month day and year separately
        mn = CINT(temp(0)) ' get the month number
        dirName = MonthName(mn,True) & temp(2) ' True means get 3 letter abbrev for month
        Response.Write "Unpacking " & fil.Name & " to directory " & dirName & "<br/>" & vbNewLine
        objZip.UnPack zipFilePath, "D:\ACS\" & dirName & "\"
    End If
Next

Answer 1

This is caused by:

temp = temp(ubound(temp))

and can be fixed by:

temp = (temp(ubound(temp)))