|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Listar arquivos com filtro
|
 |
|
|
|
Postada em 17/9/2003 por Larback
leo@polimig.com.br
Lista arquivos especificos com FSO
Set FSO = CreateObject("scripting.FileSystemObject")
Set Folder = FSO.GetFolder(strFolder)
Set Files = Folder.Files
Response.Write "<table><tr><td>Nome</td><td align=right>Tamanho</td></tr>"
For each File in Files
extens = Right(File.Name,4)
'Aqui vc defina quais os tipos de arquivos serão exibidos...
if extens=".gif" or extens=".jpg" then
Response.Write "<tr><td>" & File.Name & "</td><td align=right>" & File.Size & "</td></tr>"
End if
Next
Response.Write "</table>"
Liberar os componentes...
Set Files = Nothing
Set Folders = Nothing
Set FSO = Nothing
'------------------||------------------------'
'
'leonardo Cabral
'Larback
'------------------||------------------------'
|
|
|
|
|
