Lave en array fra filliste

Jeg har følgende script
<%
Function SortArray(ByVal arrToSort)

  Dim arrWork
  Dim intOuterIndex, intInnerIndex, intSmallestIndex
  Dim varTemp
 
  arrWork = arrToSort
 
  For intOuterIndex = 0 To UBound(arrWork)
 
    intSmallestIndex = intOuterIndex
   
    For intInnerIndex = intOuterIndex To UBound(arrWork)
      If arrWork(intInnerIndex) < arrWork(intSmallestIndex) Then
        intSmallestIndex = intInnerIndex
      End If
    Next
   
    If intSmallestIndex <> intOuterIndex Then
      varTemp = arrWork(intOuterIndex)
      arrWork(intOuterIndex) = arrWork(intSmallestIndex)
      arrWork(intSmallestIndex) = varTemp
    End If
 
  Next
 
  SortArray = arrWork

End Function

Dim arrSorted
Dim i

arrSorted = SortArray(Array("dette", "er", "en", "test", "af", "sortering", "af", "arrays"))

For i = 0 To UBound(arrSorted)
  Response.Write(arrSorted(i) & "<br>")
Next 
RootDir = Replace(Request.ServerVariables("Script_Name"),"/" & ScriptName,"")
MyDirectory = Server.MapPath("updates/")
Const cFOL = "updates/"
    Dim objFSO
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    Dim objGFO
    Set objGFO = objFSO.GetFolder(Server.MapPath(cFOL))
    Response.Write(objGFO.Files.Count) & " opdateringer<br>"
    Set objGFO = Nothing
    Set objFSO = Nothing

Set FSOdir = Server.CreateObject("Scripting.FileSystemObject")
Set MyDir = FSODir.GetFolder (MyDirectory)
Set FileNms = Mydir.Files
For Each FNms In FileNms
newfullPath = FNms
MyString = Replace(newfullpath, "\", "/")
temp = Mid( MyString, InStrRev( MyString, "/" ) + 1 )
temp = left(temp, len(temp)-4)
'''''''''''HER SKULLE ARRAYET GERNE GENERERES
Next
arrSorted = SortArray(Array("dette", "er", "en", "test", "af", "sortering", "af", "arrays"))

For i = 0 To UBound(arrSorted)
  Response.Write(arrSorted(i) & "<br>")
Next 

%>

Der er et array men jeg skal have lavet det sådant at arrayet bliver genereret ud fra scriptet ovenover med fillisten