quinta-feira, 5 de outubro de 2000

Listar diretórios

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
 
%>


 


Aproveite !



Esta matéria foi postada originalmente no ASP4Developers por Vinicius Martins (site), que na época era "Espero poder ajudar sempre que puder !". Hoje, vai saber...

0 comentários: