: : GALERIA DE EVENTOS: :

 

<% 'define as constantes usadas pelo objeto FileSystemObject usadas no projeto Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 'recebe o diretório da requisição como 'f' diretorio = request.querystring("f") if diretorio = "" then pastaEspecifica = server.mappath(".") Set arquivoSistema = CreateObject("Scripting.FileSystemObject") Set exemplo = arquivoSistema.GetFolder(pastaEspecifica) Set colecaoPastas = exemplo.SubFolders For Each subPastas in colecaoPastas tamanhoPasta = left((subPastas.size/1000000), 3) listaPasta = listaPasta & "» " & subPastas.Name & "  (" & tamanhoPasta & " MB)" & vbcrlf listaPasta = listaPasta & "

" Next set arquivoSistema = nothing Response.Write listaPasta else caminhoArquivo = server.mappath(".") & "\" & diretorio tituloArquivo = caminhoArquivo & "\imagens.txt" Set arquivoSistema = CreateObject("Scripting.FileSystemObject") Dim Vetor() If arquivoSistema.FileExists(tituloArquivo) then set file = arquivoSistema.GetFile(tituloArquivo) Set TextStream = file.OpenAsTextStream(ForReading,TristateUseDefault) contaTitulo = 0 Do While Not TextStream.AtEndOfStream Linha = TextStream.readline ReDim Preserve Vetor(contaTitulo) Vetor(contaTitulo) = Linha contaTitulo = contaTitulo + 1 Loop textStream.close end if Set exemplo = arquivoSistema.GetFolder(caminhoArquivo) Set colecaoArquivos = exemplo.Files contaArquivo = 0 For Each file in colecaoArquivos Ext = UCase(Right(File.Path, 3)) If Ext = "JPG" OR Ext = "GIF" Then on error resume next dados = Vetor(contaArquivo) on error goto 0 caminhoReferencia = diretorio & "/" & file.name caminhoImagem = "" & dados & "

" encheLista = encheLista & caminhoImagem & vbcrlf encheLista = encheLista & "
" contaArquivo = contaArquivo + 1 dados = "" end if Next set arquivoSistema = Nothing encheLista = encheLista & "
" %>

<%=diretorio%>
<%=encheLista%>
<% end if %>