Ler nome arquivo, tamanho.. e apresentar em uma tabela na tela

[Gilcimar Macedo 0]

Pessoal,Gostaria de saber como que se lê os arquivos que estão num determinado diretório e apresentar na tela dentro de uma tebela e colunas os seguintes dados:nome do arquivo || tamanho do arquivo || data de criação do arquivo || data de upload || extensão do arquivo || somente estes dados.Abraços

[Mário Monteiro 179]

Voce deve usar FSO para conseguir estes dados

[Gilcimar Macedo 0]

Mario, você terial algum exemplo para me passar?Abraços

[Ted k' 126]

Gilmar use a busca do fórum amigo, procureo por FSO que você acha vários exemplos super interessantes, e ainda com mais opções ok!?

[Mário Monteiro 179]

Documentação FSO (MSDN)

[Daw 0]

Após conseguir, para exibir o tamanho do arquivo formatado dinamicamente, utilize esta função.

Eu mesmo fiz devido a uma necessidade esta semana.

 

ASP

Function VerTamanho(Size)

Dim unidade : unidade = array("bytes", "kb", "mb", "gb", "tb", "pb")

Dim indice  : indice  = Fix(Log(Size)/Log(1024))

 

        VerTamanho = Round(Size/1024^indice, 2) & " " & unidade(indice)

 

End Function

 

Espero que consiga fazer tudo aí.

[]tz ;)

[Gilcimar Macedo 0]

Pessoal estou mexendo com esse script hj, alguem poderia me fornecer um exemplo para melhorar o entendimento..Abraços Valeu

[Daw 0]

Segue...

 

http://forum.imasters.com.br/index.php?sho...st&p=274918

[Gilcimar Macedo 0]

Estou tendando explorar esse objeto para implementar no meu código mas estou colocando os paramentros de ultima mudança " datelastmodified " ou mesmo " fileCreatedDate " mas não estou conseguindo fala que esta com erro no parametro..

 

Meu código é esse.

 

Help...

 

ASP

<table width="100%" border="1" cellspacing="0" bgcolor="gainsboro" bordercolor="Black" cellpadding="0"  align="center">

                                                                                <td align="center" border="0">

                                                                                        <tr>

                                                                                                <td width="30%" align="center">

                                                                                                        Nome

                                                                                                </td>

                                                                                                <td width="10%" align="center">

                                                                                                        Tamanho

                                                                                                </td>

                                                                                                <td width="15%" align="center">

                                                                                                        Data de Criação

                                                                                                </td>

                                                                                                <td width="15%" align="center">

                                                                                                        Data Upload

                                                                                                </td>

                                                                                                <td width="10%" align="center">

                                                                                                        Extensão

                                                                                                </td>

                                                                                                <td width="10%" align="center">

                                                                                                        Comentários

                                                                                                </td>

                                                                                                <td width="10%" align="center">

                                                                                                        Operações

                                                                                                </td>

                                                                               

                                                                                                        <%

                                                                                                                '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 = ("Felipe_CarnaubaMeus_Documentos")

 

                                                                                                                if diretorio <> "" then

 

                                                                                                                caminhoArquivo = server.mappath(".") & "" & diretorio

 

                                                                                                                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

                                                                                                                                 'response.write contaTitulo & " " & Vetor(contaTitulo) & "<br>"

                                                                                                                                 contaTitulo = contaTitulo + 1

                                                                                                                                 'Response.write Linha

                                                                                                                                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 <> ""  Then

                                                                                                                                                           on error resume next

                                                                                                                                                dados = Vetor(contaArquivo)

                                                                                                                                                on error goto 0

                                                                                                                                                caminhoReferencia = diretorio & "/" & file.name

                                                                                                                                                Nomearquivo = nome & file.name

                                                                                                                                                pesoarquivo = peso & file.size

                                                                                                                                                tipoarquivo = tipo & file.type

                                                                                                                                               

 

                                                                                                                                          'caminhoImagem = "<br>Nome da Imagem: " & Nomearquivo & "<br>Peso do Arquivo: " & pesoarquivo & " bytes<br>" & tipoarquivo & "<br><br>"

                                                                                                                                                 'encheLista = encheLista & caminhoImagem & vbcrlf

                                                                                                                                                 'encheLista = encheLista & "<BR>"

                                                                                                                                           contaArquivo = contaArquivo + 1

                                                                                                                                                dados = ""

                                                                                                                        %>

                                                                                                                                <table border="1"  width="100%" cellspacing="0" cellpadding="0" align="center">

                                                                                                                                        <tr>

                                                                                                                                                <td width="30%">       

                                                                                                                                                        <span  class="style2">

                                                                                                                                                                <center><%=Nomearquivo%></center>

                                                                                                                                                        </v>

                                                                                                                                                </td>

                                                                                                                                                <td width="10%">       

                                                                                                                                                        <span  class="style2" >

                                                                                                                                                                <center><%=pesoarquivo%></center>

                                                                                                                                                        </span>

                                                                                                                                                </td>

                                                                                                                                                <td width="15%">       

                                                                                                                                                        <span  class="style2" >

                                                                                                                                                                <center><%=data%></center>

                                                                                                                                                        </span>

                                                                                                                                                </td>

                                                                                                                                                <td width="15%">       

                                                                                                                                                        <span  class="style2" >

                                                                                                                                                                <center><%=pesoarquivo%></center>

                                                                                                                                                        </span>

                                                                                                                                                </td>

                                                                                                                                                <td width="10%">       

                                                                                                                                                        <span  class="style2" >

                                                                                                                                                                <center><%=pesoarquivo%></center>

                                                                                                                                                        </span>

                                                                                                                                                </td>

                                                                                                                                                <td width="10%">       

                                                                                                                                                        <span  class="style2" >

                                                                                                                                                                <center><%=pesoarquivo%></center>

                                                                                                                                                        </span>

                                                                                                                                                </td>

                                                                                                                                                <td width="10%">       

                                                                                                                                                        <span  class="style2" >

                                                                                                                                                                <center><%=pesoarquivo%></center>

                                                                                                                                                        </span>

                                                                                                                                                </td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       

                                                                                                                                        </tr>

                                                                                                                                </table>

                                                                                                                        <%

                                                                                                                                 end if

                                                                                                                                Next

                                                                                                                        set arquivoSistema = Nothing

                                                                                                                                 'encheLista = encheLista & "<br>"

                                                                                                                        %>

 

                                                                                                                               

 

                                                                                                                                <p><%=encheLista%></p>

 

                                                                                                                                <% end if %>

                                                                                                               

                                                                                        <tr>

                                                                                </td>

                                                                        </table>

[Daw 0]

Mostre o erro Gilcimar.

 

[]tz ;)

[Gilcimar Macedo 0]

SegueScript error detected at line 411. Source line: datacriacao = data & file.CreatedDate Description: O objeto não dá suporte para a propriedade ou método: 'file.CreatedDate'

[Gilcimar Macedo 0]

Alguém se habilita?