フォルダ内のファイル名一覧の取得
Scripting.FileSystemObjectのGetFolderを使ってフォルダ内のファイル名の一覧を取得します。
Set FS = Server.CreateObject("Scripting.FileSystemObject")
sDirName = Server.MapPath(".") 'フォルダ名の取得
Set sDIR = FS.GetFolder(sDirName)
For Each sFileNameList In sDIR.Files
    sFileName = sFileNameList.Name  'ファイル名を取り出します
'
' ファイル名を使った処理
'
Next
関連情報:
フォルダ/ファイルの有無(ASP)
フォルダ/ファイルの削除(ASP)
