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 arquivos com filtro
Postada em 17/9/2003 por Larback      Clique aqui para enviar email para o autor  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
'------------------||------------------------'
 


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