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

[Jow Xavier 0]

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

[Jow Xavier 0]

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 ...

[hargon 64]

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