Hi,
Okay I'm using FSO to fetch documents and write then into a table for retreival (my filenames are hyperlinks, too).

I want to add the additional functionality of sorting these results as well.

I was once given a link to a peice of code and while it looks like it might work I'm still having VB sript erros and I am VERY new to VBs.
Here's the error
*******************************
Expected end of statement

/HR/comm_employee.asp, line 240

Dim the Files ( )

*******************************
Here's the code where the error is found:

************************************************** **************

' collect all the info about each file and put it into one
' "slot" in our "theFiles" array.
For Each fileItem in curFiles
    fname = fileItem.Name
    fext = InStrRev( fname, "." )
    If fext < 1 Then fext = "" Else fext = Mid(fname,fext+1)
    ftype = fileItem.Type
    fsize = fileItem.Size
    fcreate = fileItem.DateCreated
    fmod = fileItem.DateLastModified
    faccess = fileItem.DateLastAccessed
    currentSlot = currentSlot + 1

    If currentSlot > UBound( theFiles ) Then
        ReDim Preserve theFiles( currentSlot + 99 )
    End If
    ' here's an array!
    theFiles (currentSlot) = Array' And now a loop for the files

Dim the Files ( )
ReDim theFiles( 500 ) ' arbitrary size!
currentSlot = -1 ' start before first slot(fname,fext,ftype,fsize,fcreate,fmod,faccess)
Next

************************************************** **************

As always your help is most appreciated,
nancy

Which line is 240?


mmcdonal

Thank you for your feedback. The problem is resolved.

Thanks again,
nancy