1

以下を使用して、拡張子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
4

1 に答える 1

4

適切な量​​のアイテム (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
于 2013-09-29T10:57:59.533 に答える