fso

[mkboy 1]

Preciso de dois exemplos de FSO para montar um esquema:- Listar imagens/arquivos de uma determinada pasta- Contar tamanho em kb de uma pastaDicas ou onde posso achar?Grato.

[Prog 183]

Já procurou na documentação do VBScript??

 

http://download.microsoft.com/download/7/c.../scrdoc56en.exe

[Marcelo Barcellos 0]

Segue...

Dim ObjPastaSet ObjFso = Server.CreateObject("Scripting.FileSystemObject")'==== CRIA OBJETO PASTA =====Set ObjPasta = ObjFso.GetFolder("Path_da_pasta")'==== TAMANHO DA PASTA EM BYTES =====QtdeBytesPasta = Objpasta.Size'==== LISTAR ARQUIVOS =====For Each File in ObjPastaResponse.Write File.PathNextSet ObjFso = Nothing

[leo_rsouza 0]

Opa.....valeu o codigo cara.....mas nao ta funcionandoele fica carregando so.....e nao faz nada....sera que tem algum erro ??alguem pod me ajudar ai ????vlws!!!

[mkboy 1]

Tentei isso:

<%strPath = "/produtos"Set objFSO = Server.CreateObject( "Scripting.FileSystemObject" )Set objFolder = objFSO.GetFolder( Server.MapPath( strPath ) )For Each objFile In objFolder%><p align="center"><img src="produtos/<%=objFile%>"><br><b><%=objFile%></b></p><%NextSet objFolder = NothingSet objFSO = Nothing%>

E ta derrubando meu IIS!Aproveitando, como eu restarto o IIS sem reiniciar o PC?

[mkboy 1]

Alguem sabe onde posso baixar outros exemplos tb pra testar?Por que meu IIS trava quando uso o codigo acima?

[ultra 0]

pra reiniciar o IIS digite "iisreset" no executar, ou no prompt do DosQuanto à travada, eu acho q é na linha Set objFolder = objFSO.GetFolder( Server.MapPath( strPath ) )Experimenta dar um response.write Server.MapPath( strPath ) e vê se o endereço é válido[]'s

[mx loco 1]

uma ótima referencia de FSO ( axu que é completa ).

 

http://www.sloppycode.net/fso/

 

falo.

[Salgado 4]

Tentei isso:

 

<%

strPath = "/produtos"

 

Set objFSO = Server.CreateObject( "Scripting.FileSystemObject" )

Set objFolder = objFSO.GetFolder( Server.MapPath( strPath ) )

 

For Each objFile In objFolder

 

%>

<p align="center">

<img src="produtos/<%=objFile%>"><br>

<b><%=objFile%></b>

</p>

<%

 

Next

 

Set objFolder = Nothing

Set objFSO = Nothing

%>

 

E ta derrubando meu IIS!

 

Aproveitando, como eu restarto o IIS sem reiniciar o PC?

<{POST_SNAPBACK}>

Tem muitos arquivos em sua pasta? Tente aumentar o tmpo de execução de scripts para ver se ajuda.