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

Galera como adaptar o script abaixo, para ler todos os arquivos de uma pasta

<%
variavel = "\arquivo\arquivo.txt"
arquivo = server.mappath(".") & variavel

'O parâmetro forReading é utilizado somente para leitura.
Const forReading = 1, forWriting = 2, forAppending = 8

'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)

'Looping para varrer todas as linha do arquivo.
While Not ObjStream.AtEndOfStream

'O método Readline lê uma linha de um arquivo
Linha = Linha & ObjStream.Readline & "<br>"
Wend

'Mostra o conteúdo.
Response.write Linha

'Fecha o arquivo.
objStream.Close

'Destruíndo objetos
Set Fso = nothing
Set objStream = nothing
%>
E listar da seguinte forma ...

Nome do arquivo

conteúdo do arquivo