[Resolvido] listar todos os arquivos de um diretório

Galera já consegui resolver, segue o código pra quem tiver alguma dúvida ....

<%

Dim array(4)
Dim strPath
Dim objFSO
Dim objFolder
Dim objItem
Dim ObjFile
Dim ObjStream
Const forReading = 1
Const forWriting = 2
Const forAppending = 8

' O diretório que vai ser listado:
strPath = "arquivo/"

' Vamos criar aqui o FileSystemObject:
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

' ler o conteúdo do diretório
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))

For Each objItem In objFolder.Files
variavel = objItem.Name

'arquivo = server.mappath(".") & "\arquivo\" & variavel
arquivo = server.mappath(".") & "\arquivo\" & variavel

'Instância o objeto FSO.
Set Fso = CreateObject("Scripting.FileSystemObject")

'O método GetFile retorna o arquivo existente.
Set ObjFile = Fso.GetFile(arquivo)

'O método OpenAsTextStream abre o arquivo como sendo um fluxo de texto.
Set objStream = ObjFile.OpenAsTextStream(forReading,false)

	response.write "<strong>Nome do Arquivo:</strong> " & variavel & "<br>"
	'Looping para varrer todas as linha do arquivo.
	While Not ObjStream.AtEndOfStream

 'O método Readline lê uma linha de um arquivo
 Linha = ObjStream.Readline
 ' Tira o espaço da Linha dos arquivos
 Linha = replace(Linha,"	","")
 ' Captura o id no arquivo

 response.write "<strong>Linhas do arquivo:</strong> " & Linha & "<br>"

	Wend

Next

'Fecha o arquivo.
objStream.Close

'Destruíndo objetos
Set Fso = nothing
Set objStream = nothing

' Feito !!! Agora é fechar as variáveis
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing

'end if

%>
O código acima lê todos as arquivos e suas respectivas linhas ...

Parabéns por ter encontrado a solução Jow.