|
|
|
|
|
|
|
|
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+,
|
|
|
|
|
