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