Scripting.FileSystemObject

[cabral51 0]

Como pegar somentes aquivos jpeg desta pasta?

 

<%	Set fso = Server.CreateObject("Scripting.FileSystemObject")	Set arquivo=Fso.GetFolder(Server.MapPath("imagens/"&codigox&"/[b].jpeg[/b]"))	Set arquivos=arquivo.files	 For each item in arquivos 'response.Write item.name & "<br>"%>				<img src="imagens/<%=codigox%>/<%=item.name%>">				<%	Next		Set arquivos=nothing	Set arquivo=nothing	Set fso=nothing%>

[Mário Monteiro 179]

dentro do for ponha um if tiozinho

[cabral51 0]

um if com a funcao right??Tipo assimif right(arquivos,3)=".jpeg" then<img src="imagens/<%=codigox%>/<%=item.name%>">

[Mário Monteiro 179]

so qeu nao seria 3 né?seria 5 no caso ai

[cabral51 0]

Ae manu valew pela ajuda ja descobri vo por a resposta:Set fso = Server.CreateObject("Scripting.FileSystemObject") Set arquivo=Fso.GetFolder(Server.MapPath("imagens/"&codigox&"/")) Set arquivos=arquivo.files For each item in arquivos 'response.Write item.name & "<br>" if (Right(item,3) ="jpg") then%> <img src="imagens/<%=codigox%>/<%=item.name%>"> <%end if Next Set arquivos=nothing Set arquivo=nothing Set fso=nothingValew a galera

[Mário Monteiro 179]

tranquilo tiozinho so acho qeu deveria prever a extensao jpeg tambem e nao apenas jpg

[jrcardozo 4]

tem uma função aqui no forum em ue ela pega a extenção no fso, assim você pode detrerminar os tipos de arquivos que poderão ser exibidos...use a busca, se não me engano vi isso no penultimo final de semana. Essa função será mais segura e pratica(no meu ponto de vista)

[cabral51 0]

Opa blza galera vo pegar ela e se sabe como eu tenhuq procurar uma palavra chave q você lembre?

[Roney 0]

Tenho uma func que faz isso... se interessar, aqui está:

 

function f_getFileExtension( szFileName ) 		if ( instr( szFileName, ".") = 0 ) then			f_getFileExtension = ""		else 			f_getFileExtension = mid( szFileName, instrrev(szFileName, ".")+1)		end if	end function

abs

[cabral51 0]

Por exemplo se a pasta naum existir para ele naum da ro erro de path not found o q eu posso fazer???

[cabral51 0]

Pessoal como eu faço um tratamento assim:Se a pasta naum existir ele naum faz o img src?

[Mário Monteiro 179]

testa se a pasta existe horacom FSO mesmo

[cabral51 0]

entaum mario mas eu naum sei tem como postar pra mim nakele exemplo q eu apssei como seria o if???

[Mário Monteiro 179]

exemplo

 

Set objFS = Server.CreateObject("Scripting.FileSystemObject")If objFS.FolderExists(Server.MapPath( "minha_pasta" ) ) Then  Response.Write "A pasta existe"Else  Response.Write "A pasta não existe"End ifSet objFS = Nothing