i x 3 array og fso

i asp kan du bare gøre sådan her:

MyArray(0,0) = "hej"
MyArray(0,1) = "med dig"


Hvis det er det du søger, du behøves ikke at bruge dictinary, men vil anbefales, da den kan sortere, mener jeg

hej tror det er noget i den her stil du evt. leder efter:

http://www.roubaixinteractive.com/PlayGround/FSO/Sort_Folder_Contents.asp

/hiks

som jeg kan se der går det igennem en database hvilket jeg ikke ønsker da det tager længere tid end med et array...
Jeg ved det kan lade sig gøre med et array, så lader indlæget være åbent stadig.

som sådan har det jo ikke noget at gøre med en database. Den bruger bare ADODBs funktionalitet i form af et temp. recordset.

Ellers kan du jo bare genbruge løkken der starte således i funktionen nævnt på siden. Men du gør ikke sorteringen nemmere da du skal bruge forskellige funktioner til forskellige typer sorteringer. here goes:

Function kc_fsoFiles(theFolder, Exclude)
  Dim objFSO, objFolder, File
 
  'Open the FSO object
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 
  'go get the folder to output it's contents
  Set objFolder = objFSO.GetFolder(theFolder)

  dim i

  For Each File In objFolder.Files
   
    'hide any file that begins with the character to exclude
    If (Left(File.Name, 1)) <> Exclude Then
      MyArray(i, 0) = File.Name
      MyArray(i, 1) = File.Type
      MyArray(i, 2) = File.DateCreated
      MyArray(i, 3) = File.DateLastAccessed
      MyArray(i, 4) = File.DateLastModified
      MyArray(i, 5) = File.Size
    End If

  Next

  Set kc_fsoFiles = MyArray
  Set objFolder = Nothing
  Set objFSO = Nothing

End Function

Og så får du et array retur når du kalder funktionen med variablerne folder og exclude...

/hiks

lige en mindre detalje: :o)

Function kc_fsoFiles(theFolder, Exclude)
  Dim objFSO, objFolder, File
 
  'Open the FSO object
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 
  'go get the folder to output it's contents
  Set objFolder = objFSO.GetFolder(theFolder)

  dim i

  For Each File In objFolder.Files
   
    'hide any file that begins with the character to exclude
    If (Left(File.Name, 1)) <> Exclude Then
      MyArray(i, 0) = File.Name
      MyArray(i, 1) = File.Type
      MyArray(i, 2) = File.DateCreated
      MyArray(i, 3) = File.DateLastAccessed
      MyArray(i, 4) = File.DateLastModified
      MyArray(i, 5) = File.Size
      i = i + 1
    End If
     
  Next

  Set kc_fsoFiles = MyArray
  Set objFolder = Nothing
  Set objFSO = Nothing

End Function

/hiks