Visualizar Pastas e Arquivos FTP

Question

Bom dia,

    Estou criando um aplicativo para fazer Download e Upload de aquivo da FTP.

    Gostaria de saber se existe uma maneira de viasualizar as pastas e arquivos com e feito no Windows Explore???

    Valeu!! 

---

Narciso Júnior

Answer 1

Exemplo em vbscript

<%
on error resume next

Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set vlocal = fs.getfolder(server.mappath("..\..\ftproot\nome_usuario"))
For Each parquivo In vlocal.Files
    response.write "Arquivo: " & parquivo & "<BR>"
       response.flush
next
response.write "<HR>"

dim str,str2
For Each nome In vlocal.subfolders
    response.write "Sub Pasta: " & nome & "<BR>"
       Set alocal = fs.getfolder(nome)
    For Each arquivo In alocal.Files
        str = split(arquivo,"\")
        str2 = str(ubound(str))
   
        response.write %> <a href="file:<%=arquivo  %>"><% =str2 %></a><%="<BR>"%><%      
    next
next

set vlocal = nothing       
set alocal = nothing
set fs = nothing
%>

---

Se a minha resposta lhe foi util, marque "Propor como Proposta" para qualificar o conteudo do fórum. Obrigado, Vinicius Nunes Macedo