Ajouter des Valeurs dans un Tableau - ASP Classique

Je suis en utilisant le suivant For loop pour afficher tous les fichiers dans un dossier à l'exclusion de fichiers avec un .asp extension.

Je tiens à ajouter le nom de fichier d'un tableau, de sorte que objFileItem.Name est ajouté à chaque élément de tmpArray.

J'ai essayé d'utiliser tmpArray(k) = objFileItem.Name mais sa de lancer une erreur.

For Each objFileItem In objFolderContents
    strFileExtension = LCase(Mid(objFileItem.Name, _
        InStrRev(objFileItem.Name, ".", -1, 1) + 1))
        If strFileExtension <> "asp"  Then
            strImages=strImages & objFileItem.Name
        end if

Next
  • "Mais c'est de lancer une erreur", peut-être que vous aimeriez partager l'erreur qu'il est en train de lancer. De plus, je ne vois pas de refernce à tmpArray dans le code que vous avez fournis.
  • Où avez-vous initialiser "strImages"?
  • il n'a pas besoin d'être initialisé, VBScript assumera c'est une chaîne vide sur la première occurrence de strImages=strImages & objFileItem.Name.
InformationsquelleAutor user580950 | 2013-09-24
  1. 4

    Si vous avez une quantité raisonnable d'éléments (moins de 100) suffit d'utiliser un tableau dynamique comme ceci:

    Dim tmpArray()
ReDim tmpArray(-1)
For Each objFileItem In objFolderContents
    strFileExtension = LCase(Mid(objFileItem.Name, _
        InStrRev(objFileItem.Name, ".", -1, 1) + 1))
    If strFileExtension <> "asp"  Then
        strImages = strImages & objFileItem.Name
        ReDim Preserve tmpArray(UBound(tmpArray) + 1)
        tmpArray(UBound(tmpArray)) = objFileItem.Name
    End If
Next

'show array items:
Response.Write("Total of " & (UBound(tmpArray) + 1) & " files:<br />")
For k=0 To UBound(tmpArray)
    Response.Write(tmpArray(k) & "<br />")
Next

'when done with the array, release resources to prevent memory leak:
Erase tmpArray
    InformationsquelleAutor Shadow Wizard