none
Visualizar Pastas e Arquivos FTP RRS feed

  • Pergunta

  • 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
    segunda-feira, 24 de outubro de 2011 11:16

Todas as Respostas

  • 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
    terça-feira, 25 de outubro de 2011 00:05