Question

我使用以下For loop来显示文件夹中的所有文件，不包括.asp扩展名的文件。

我想将文件名添加到数组中，以便将objFileItem.Name添加到tmpArray中的每个元素。

我尝试使用tmpArray(k) = objFileItem.Name，但却抛出错误。

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

Answer 1

如果你有合理数量的物品（少于100个），只需使用这样的动态数组：

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

在数组中添加值 - 经典ASP

1 个答案: