retornar nomes dos arquivos

[thicomp 0]

Pessoal, tem algum comando em ASP que me retorne todos os nomes de arquivos de uma determinada pasta do sistema?

[thicomp 0]

Com este comando, ele me retorna só os arquivos existentes no diretório "Root"??Já tentei altera o caminho, mas me retornou erro.

[Mário Monteiro 179]

qual o erro???

[thicomp 0]

Está me retornando este erroServer.MapPath() error 'ASP 0172 : 80004005' Invalid Path /cm/and/teste.asp, line 4 The Path parameter for the MapPath method must be a virtual path. A physical path was used.

[thicomp 0]

Não foi feita nenhuma alteração, por enquanto, apenas modificado o path do código me passado

 

<%'***************** FileSet fso = CreateObject("Scripting.FileSystemObject")Set folder = fso.GetFolder(Server.Mappath("F:\Root\cm\and\txt\"))Set files = folder.FilesFor Each file in FilesResponse.Write file.Name & "<BR>"NextSet files = folder.FilesSet file = NothingSet fso = Nothing' Output:' index.html' test.asp%>

[thicomp 0]

Vlw kra, era isso mesmoBrigadãoMais uma coisaTem como eu puxar somente o nome do arquivo, sem a extensão??

[Mário Monteiro 179]

só tratar isso com funções de manipulação de string

[thicomp 0]

Estou tentando tratar a extensão do arquivo com o cocmando "split", mas não estou conseguindo.Algué poderia me ajudar??

[Salgado 4]

Uma dica, na verdade duas, use as funções Left e InStrRev usando o ".".

[thicomp 0]

como eu faço para declarar a variável

 

For Each file in Files

Response.Write file.Name & "<BR>"

Next

 

se ela é carregada na execução do código?

[Salgado 4]

Não está sendo usada variável ai. Para declarar é só usar DIM nomedavar, para dar um valor é só igualar ao que quer nomedavar = valor.

[thicomp 0]

Galera, estou com este código aí, mas não estou conseguindo fazer com que a variável "nomearq" carregue o nome do arquivo da pasta especificada. Alguém pode me ajudar??

<%

Dim nomearq, nome

nomearq = "file.Name"

Set fso = CreateObject("Scripting.FileSystemObject")

Set folder = fso.GetFolder("F:\Root\cm\and\txt\")

Set files = folder.Files

For Each file in Files

response.write "<a href=http://Root/cm/and/modleit2.asp?nome="

nome=left(nomearq, 6)

Response.Write nome & ">"

Response.Write nome & "</a></tr>"

Next

Set files = folder.Files

Set file = Nothing

Set fso = Nothing

%>

[thicomp 0]

Pessoal, problema resolvido