USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Listar diretórios
Postada em 17/10/2003 por ^HEAVY-METAL^            
Use o codigo abaixo para que possa listas um diretorio !
<%

diretorio = "d:/Intetpub/wwwroot/123"
arquivos = showfolderlist(diretorio)

Function ShowFolderList(folderspec)
            Dim fso, f, f1, fc, s
            Set fso = CreateObject("Scripting.FileSystemObject")
    if fso.FolderExists(folderspec) Then
             Set f = fso.GetFolder(folderspec)
              Set fc = f.Files
             total = 0
             For Each f1 in fc
     if f1.Name<>"Default.asp" Then
         response.write "<a href='d:/" & f1.Name & "'</a> " & f1.Name &  
"<br>"
     end if
             Next
    else
       total = 0
    end if
            ShowFolderList = arquivos
          End Function

%>

T+,
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página