Listar Arquivos De Uma Pasta

[ar_ctjd]

Preciso fazer o seguinte armazenar num vetor o nome dos arquivos que existem numa determinada pasta.

Já achei em tutoriais de FSO, como saber quantos arquivos tem na pasta, mas precisaria realmente saber os nomes de todos os arquivos e armazena-los num vetor....

Alguém sabe como fazer issso????

[Bicicleta]

bom, se você conseguiu contar quantos arquivos tem, o processo pra listar os nomes é simples...

Depois de instâncias o objeto FileSystemObject e a função GetFolder, usa isso:

For Each arquivo In pasta

  Response.Write arquivo.name & "<br>"

Next

[]s

[bareta]

já vi isso aqui no forum use a busca

[cyberalexxx]

Um exemplo:

<%Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set principal = FSO.GetFolder("c:\intranet") ' coloque a pasta principal
Set arquivos = principal.Files

'criando vetor
dim nome
nome=array()
For each arq in arquivos
redim preserve nome(Ubound(nome)+1)
nome(Ubound(nome)) = arq.name
next

'listando arquivos
for x = 0 to Ubound(nome)  
   response.write nome(x) & "<br>"
next
%>