none
Erro ao mover arquivo RRS feed

  • Pergunta

  • Boa tarde!

    Estou com um problema ao tentar mover um arquivo atravez de um dos meus scripts.

    O script faz o seguinte, quebra um arquivo texto atravez de um delimitador e joga as informações para variaveis e depois Exporta os valores das variaveis para uma tabela do mysql.

    No final eu gostaria de pegar o arquivo que acabou de ser tratado e move-lo para outra pasta so que esta dando o erro abaixo.

    ---------------------------

    VbsEdit

    ---------------------------

    Line:      48

    Column:              2

    Error:    Permissão negada

    Code:    800A0046

    Source:                Erro de tempo de execução do Microsoft VBScript

     

    System:               Houve uma pausa no servidor remoto ou ele está prestes a ser iniciado.

     

     


    Seque o script:

     'Desenvolvido por Jeferson Damasceno
    'Ultima atualização: 18/12/2009
    'Faz o controle de notas importadas
    strPasta="C:\entrada\"
    strPastaSaida="C:\entrada\processada\"
    Set FSO = CreateObject("Scripting.FileSystemObject")

    procura_Arquivos(strPasta)
    Sub procura_Arquivos(Pasta)
     set folder = FSO.getFolder (Pasta)
     for each file in folder.files
       Set objFile = FSO.GetFile(file)
       Set objFSO = CreateObject("Scripting.FileSystemObject")
       Set objTextFile = objFSO.OpenTextFile(file,1)
       Do While objTextFile.AtEndOfStream <> True
         linha = objTextFile.ReadLine
         linha = Split(linha,"|#")
         'Inclusão dos dados nas variaveis
         nf = Mid(Trim(linha(8)),1,3) & Mid(Trim(linha(8)),5,3)
         nomecliente = Trim(linha(14))
         cpf = Trim(linha(15))
         dataemissao = Trim(linha(16))
         canalvenda = Trim(linha(3))
         uf = Trim(linha(24))
         movimento = Mid(Trim(linha(105)),25,6)
         volume = Mid(Trim(linha(108)),9,10)
         remessa = Mid(Trim(linha(107)),9,10)
         pedido = Mid(Trim(linha(105)),9,10)
         cont = Mid(Trim(linha(74)),38,2)
         'Exportação para Mysql
     
         Set objConnection = CreateObject("ADODB.Connection")
         objConnection.ConnectionTimeout = 60
         objConnection.CommandTimeout = 400
         objConnection.Open "DRIVER={MySQL ODBC 5.1 Driver};" _
            & "user=" & "root" _
            & ";password=" & "3141323" _
            & ";database=" & "notas" _
            & ";server=" & "localhost" _
            & ";option=" & (1 + 2 + 8 + 32 + 2048 + 16384)
         objConnection.execute "INSERT INTO tblcadnf(nf,nomecliente,cpfcliente,dataemissao,canalvenda,uf,movimento,volume,remessa,pedido,cont) VALUES ('" & nf & "','" & nomecliente & "','" & cpf & "','" & dataemissao & "','" & canalvenda & "','" & uf & "','" & movimento & "','" & volume & "','" & remessa & "','" & pedido & "','" & cont & "')"
         objConnection.Close
      Loop
     arquivo = objfile.Name
     WScript.echo strPastaSaida
     WScript.echo arquivo
     WScript.echo strPastaSaida & arquivo
     FSO.MoveFile file, strPastaSaida '& arquivo
     Next
    end sub

     


    Desde já agradeço pela ajuda

    Jeferson Damasceno

     

    segunda-feira, 11 de janeiro de 2010 19:55

Respostas

  • Marcellus , bom dia!
    Sim o arquivo que quero mover é o txt.

    A logica que eu imaginei foi a seguinte:



    procura_Arquivos(strPasta)

    'Inicio da função de procura
    Sub procura_Arquivos(Pasta)
     set folder = FSO.getFolder (Pasta)

     arquivo_comp = "nada"
    'Aqui entrar em loop enquanto achar todos os arquivos da pasta
     

    for each file in folder.files

       Set objFile = FSO.GetFile(file)

       'Abre o arquivo txt

       Set objTextFile = FSO.OpenTextFile(file,1)
      
    'Entra em loop até chegar a ultima linha do arquivo txt

       Do While objTextFile.AtEndOfStream <> True
         'A variavel linha recebe a o string da linha "ativa"
          linha = objTextFile.ReadLine
         'A variavel linha recebe a string contido entre os delimitadores "|#"
         linha = Split(linha,"|#")
         'Inclusão dos dados nas variaveis
          .
          .
          .
         'Exportação para Mysql
          .
          .
          .
    'Fim do loop chegou a ultima linha do arquivo

      Loop
     
    'Como na primeira versão postada não estava conseguindo mover nenhum arquivo achei que era porque não poderia mover o arquivo que estava "ativo" então criei a variavel arquivo_comp e iniciei o seu valor como nada para que na primeira vez que testasse esta condição a mesma não moveria o arquivo.

      If arquivo_comp <> "nada" Then
      wscript.echo "entrei no if"
       FSO.MoveFile arquivo_comp, strPastaSaida 
      End If

     'A variavel arquivo_comp recebe o valor de file que é o caminho completo do arquivo(c:\entrada\nome_do_arquivo.txt)


      arquivo_comp = file
    'Fim do loop  (terminou todos os arquivos da pasta
      Next
    'aqui fecho o ultimo arquivo da pasta (todos os outros já foram movidos pelo movefile dentro do if
     objTextFile.Close

     end sub
    'aqui tento mover o ultimo arquivo da pasta pos dentro do loop copio sempre o arquivo anderior
    FSO.MoveFile arquivo_comp, strPastaSaida



    Não sei se consegui explicar legal a logiga que tentei usar, qualquer coisa tento melhorar a explicação.
    Obs.: como inicio a variavel arquivo_comp como "nada" a primeira vez que passa pelo loop não é movido nenhum arquivo pois não entra no condicional, depois abaixo a variavel arquivo_comp recebe o valor de file e ja é movido arquivo na segunda vez que passa pelo loop.
    Sendo assim o arquivo copiado é sempre o que passou no loop anterior, depois que acaba todos os arquivos da pasta fecho o arquivo(o ultimo) e tento move-lo pelo movefile que esta fora do loop(lembrando que sempre movo o arquivo que passou pelo loop anterior.

    Desde já agradeço a mas essa ajuda. 

    Jeferson, bom dia.

    Fiz algumas alterações veja se funciona....


    'Desenvolvido por Jeferson Damasceno
    'Ultima atualização: 18/12/2009
    'Faz o controle de notas importadas


    'Lista arquivos determinada pasta
    strPasta = "C:\teste\"
    strPastaSaida = "C:\teste\teste\"


    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.getFolder(strPasta)
     For each file in objfolder.files
      Set objFile = objFSO.GetFile(file)
      ImportData(File)
      objFSO.MoveFile file, strPastaSaida '& arquivo
       

     Next

    Set objFSO = nothing
    Set objFolder = nothing

    'Responsável somente por importar os dados
    Sub ImportData(strFile)
       
     Set objTextFile = objFSO.OpenTextFile(strfile,1)
     
      Set objConnection = CreateObject("ADODB.Connection")
       objConnection.ConnectionTimeout = 60
       objConnection.CommandTimeout = 400
       objConnection.Open "DRIVER={MySQL ODBC 5.1 Driver};" _
       & "user=" & "root" _
       & ";password=" & "3141323" _
       & ";database=" & "notas" _
       & ";server=" & "localhost" _
       & ";option=" & (1 + 2 + 8 + 32 + 2048 + 16384)
       
     Do While objTextFile.AtEndOfStream <> True
       linha = objTextFile.ReadLine
       linha = Split(linha,"|#")
       'Inclusão dos dados nas variaveis
       nf = Mid(Trim(linha(8)),1,3) & Mid(Trim(linha(8)),5,3)
       nomecliente = Trim(linha(14))
       cpf = Trim(linha(15))
       dataemissao = Trim(linha(16))
       canalvenda = Trim(linha(3))
       uf = Trim(linha(24))
       movimento = Mid(Trim(linha(105)),25,6)
       volume = Mid(Trim(linha(108)),9,10)
       remessa = Mid(Trim(linha(107)),9,10)
       pedido = Mid(Trim(linha(105)),9,10)
       cont = Mid(Trim(linha(74)),38,2)
       'Exportação para Mysql
      
       objConnection.execute "INSERT INTO tblcadnf(nf,nomecliente,cpfcliente,dataemissao,canalvenda,uf,movimento,volume,remessa,pedido,cont) VALUES ('" & nf & "','" & nomecliente & "','" & cpf & "','" & dataemissao & "','" & canalvenda & "','" & uf & "','" & movimento & "','" & volume & "','" & remessa & "','" & pedido & "','" & cont & "')"
      
     Loop
     objConnection.Close
     objTextFile.close()

    End Sub


    " Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
    sexta-feira, 15 de janeiro de 2010 11:22

Todas as Respostas

  • Bom dia!

    Fiz alguns teste e consegui evoluir um pouco.

    Coloquei no final do script a condição abaixo:

     If arquivo_comp <> "nada" Then
       FSO.MoveFile arquivo_comp, strPastaSaida '& arquivo
    End if

    obs.: iniciei a variavel arquivo_comp como o valor "nada"

    O script ficou assim:

    strPasta="C:\entrada\"
    strPastaSaida="C:\entrada\processada\"
    Set FSO = CreateObject("Scripting.FileSystemObject")

    procura_Arquivos(strPasta)

    'Inicio da função de procura
    Sub procura_Arquivos(Pasta)
     set folder = FSO.getFolder (Pasta)
     arquivo_comp = "nada"
     for each file in folder.files
       Set objFile = FSO.GetFile(file)
       Set objTextFile = FSO.OpenTextFile(file,1)
       Do While objTextFile.AtEndOfStream <> True
         linha = objTextFile.ReadLine
         linha = Split(linha,"|#")
         'Inclusão dos dados nas variaveis
         nf = Mid(Trim(linha(8)),1,3) & Mid(Trim(linha(8)),5,3)
         nomecliente = Trim(linha(14))
         cpf = Trim(linha(15))
         dataemissao = Trim(linha(16))
         canalvenda = Trim(linha(3))
         uf = Trim(linha(24))
         movimento = Mid(Trim(linha(105)),25,6)
         volume = Mid(Trim(linha(108)),9,10)
         remessa = Mid(Trim(linha(107)),9,10)
         pedido = Mid(Trim(linha(105)),9,10)
         cont = Mid(Trim(linha(74)),38,2)
         'Exportação para Mysql
         Set objConnection = CreateObject("ADODB.Connection")
         objConnection.ConnectionTimeout = 60
         objConnection.CommandTimeout = 400
         objConnection.Open "DRIVER={MySQL ODBC 5.1 Driver};" _
            & "user=" & "root" _
            & ";password=" & "3141323" _
            & ";database=" & "notas" _
            & ";server=" & "localhost" _
            & ";option=" & (1 + 2 + 8 + 32 + 2048 + 16384)
         objConnection.execute "INSERT INTO tblcadnf(nf,nomecliente,cpfcliente,dataemissao,canalvenda,uf,movimento,volume,remessa,pedido,cont) VALUES ('" & nf & "','" & nomecliente & "','" & cpf & "','" & dataemissao & "','" & canalvenda & "','" & uf & "','" & movimento & "','" & volume & "','" & remessa & "','" & pedido & "','" & cont & "')"
         objConnection.Close
      Loop
      If arquivo_comp <> "nada" Then
      wscript.echo "entrei no if"
       FSO.MoveFile arquivo_comp, strPastaSaida 
      End If
      arquivo_comp = file
      Next
     objTextFile.Close
     end sub
    FSO.MoveFile arquivo_comp, strPastaSaida

    Agoro quando eu tenho varios arquivos na pasta ele vai fazendo a exportação para o mysqlnormalmente e movendo os arquivos para a pasta que eu quero se que quando chega no ultimo arquivo ele faz a exportação para o mysql mas da erro de Permissão negada(Houve uma pausa no servidor remoto ou ele está prestes a ser iniciado). na hora de move-lo.

    Alguem poderia me ajudar?

    Desde já agradeço.

     

     

    terça-feira, 12 de janeiro de 2010 12:40
  • Bom dia!

    Fiz alguns teste e consegui evoluir um pouco.

    Coloquei no final do script a condição abaixo:

     If arquivo_comp <> "nada" Then
       FSO.MoveFile arquivo_comp, strPastaSaida '& arquivo
    End if

    obs.: iniciei a variavel arquivo_comp como o valor "nada"

    O script ficou assim:

    strPasta="C:\entrada\"
    strPastaSaida="C:\entrada\processada\"
    Set FSO = CreateObject("Scripting.FileSystemObject")

    procura_Arquivos(strPasta)

    'Inicio da função de procura
    Sub procura_Arquivos(Pasta)
     set folder = FSO.getFolder (Pasta)
     arquivo_comp = "nada"
     for each file in folder.files
       Set objFile = FSO.GetFile(file)
       Set objTextFile = FSO.OpenTextFile(file,1)
       Do While objTextFile.AtEndOfStream <> True
         linha = objTextFile.ReadLine
         linha = Split(linha,"|#")
         'Inclusão dos dados nas variaveis
         nf = Mid(Trim(linha(8)),1,3) & Mid(Trim(linha(8)),5,3)
         nomecliente = Trim(linha(14))
         cpf = Trim(linha(15))
         dataemissao = Trim(linha(16))
         canalvenda = Trim(linha(3))
         uf = Trim(linha(24))
         movimento = Mid(Trim(linha(105)),25,6)
         volume = Mid(Trim(linha(108)),9,10)
         remessa = Mid(Trim(linha(107)),9,10)
         pedido = Mid(Trim(linha(105)),9,10)
         cont = Mid(Trim(linha(74)),38,2)
         'Exportação para Mysql
         Set objConnection = CreateObject("ADODB.Connection")
         objConnection.ConnectionTimeout = 60
         objConnection.CommandTimeout = 400
         objConnection.Open "DRIVER={MySQL ODBC 5.1 Driver};" _
            & "user=" & "root" _
            & ";password=" & "3141323" _
            & ";database=" & "notas" _
            & ";server=" & "localhost" _
            & ";option=" & (1 + 2 + 8 + 32 + 2048 + 16384)
         objConnection.execute "INSERT INTO tblcadnf(nf,nomecliente,cpfcliente,dataemissao,canalvenda,uf,movimento,volume,remessa,pedido,cont) VALUES ('" & nf & "','" & nomecliente & "','" & cpf & "','" & dataemissao & "','" & canalvenda & "','" & uf & "','" & movimento & "','" & volume & "','" & remessa & "','" & pedido & "','" & cont & "')"
         objConnection.Close
      Loop
      If arquivo_comp <> "nada" Then
      wscript.echo "entrei no if"
       FSO.MoveFile arquivo_comp, strPastaSaida 
      End If
      arquivo_comp = file
      Next
     objTextFile.Close
     end sub
    FSO.MoveFile arquivo_comp, strPastaSaida

    Agoro quando eu tenho varios arquivos na pasta ele vai fazendo a exportação para o mysqlnormalmente e movendo os arquivos para a pasta que eu quero se que quando chega no ultimo arquivo ele faz a exportação para o mysql mas da erro de Permissão negada(Houve uma pausa no servidor remoto ou ele está prestes a ser iniciado). na hora de move-lo.

    Alguem poderia me ajudar?

    Desde já agradeço.

     

     


    Jeferson, bom dia.

    O arquivo que tentas mover é o txt?
    Se sim, o fechamento do arquivo.... (objTextFile.Close) está após a tentativa de mover...


     
    If arquivo_comp <> "nada" Then
      wscript.echo "entrei no if"
               'Fechei o arquivo
                      objTextFile.Close             
       FSO.MoveFile arquivo_comp, strPastaSaida 
      End If
      arquivo_comp = file
      Next
     
     end sub
    FSO.MoveFile arquivo_comp, strPastaSaida


    Acho que seria isso.....até agora estudando o código eu não descobri o que seria a variável (File).
    Mas acho que poderia ser isso (pelo que eu entendi do código)

    Poste!
    Estamos aguardando...

    []s,


    " Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
    terça-feira, 12 de janeiro de 2010 13:21
  • Marcellus , bom dia!
    Sim o arquivo que quero mover é o txt.

    A logica que eu imaginei foi a seguinte:



    procura_Arquivos(strPasta)

    'Inicio da função de procura
    Sub procura_Arquivos(Pasta)
     set folder = FSO.getFolder (Pasta)

     arquivo_comp = "nada"
    'Aqui entrar em loop enquanto achar todos os arquivos da pasta
     

    for each file in folder.files

       Set objFile = FSO.GetFile(file)

       'Abre o arquivo txt

       Set objTextFile = FSO.OpenTextFile(file,1)
      
    'Entra em loop até chegar a ultima linha do arquivo txt

       Do While objTextFile.AtEndOfStream <> True
         'A variavel linha recebe a o string da linha "ativa"
          linha = objTextFile.ReadLine
         'A variavel linha recebe a string contido entre os delimitadores "|#"
         linha = Split(linha,"|#")
         'Inclusão dos dados nas variaveis
          .
          .
          .
         'Exportação para Mysql
          .
          .
          .
    'Fim do loop chegou a ultima linha do arquivo

      Loop
     
    'Como na primeira versão postada não estava conseguindo mover nenhum arquivo achei que era porque não poderia mover o arquivo que estava "ativo" então criei a variavel arquivo_comp e iniciei o seu valor como nada para que na primeira vez que testasse esta condição a mesma não moveria o arquivo.

      If arquivo_comp <> "nada" Then
      wscript.echo "entrei no if"
       FSO.MoveFile arquivo_comp, strPastaSaida 
      End If

     'A variavel arquivo_comp recebe o valor de file que é o caminho completo do arquivo(c:\entrada\nome_do_arquivo.txt)


      arquivo_comp = file
    'Fim do loop  (terminou todos os arquivos da pasta
      Next
    'aqui fecho o ultimo arquivo da pasta (todos os outros já foram movidos pelo movefile dentro do if
     objTextFile.Close

     end sub
    'aqui tento mover o ultimo arquivo da pasta pos dentro do loop copio sempre o arquivo anderior
    FSO.MoveFile arquivo_comp, strPastaSaida



    Não sei se consegui explicar legal a logiga que tentei usar, qualquer coisa tento melhorar a explicação.
    Obs.: como inicio a variavel arquivo_comp como "nada" a primeira vez que passa pelo loop não é movido nenhum arquivo pois não entra no condicional, depois abaixo a variavel arquivo_comp recebe o valor de file e ja é movido arquivo na segunda vez que passa pelo loop.
    Sendo assim o arquivo copiado é sempre o que passou no loop anterior, depois que acaba todos os arquivos da pasta fecho o arquivo(o ultimo) e tento move-lo pelo movefile que esta fora do loop(lembrando que sempre movo o arquivo que passou pelo loop anterior.

    Desde já agradeço a mas essa ajuda. 

    quarta-feira, 13 de janeiro de 2010 12:01
  • Marcellus , bom dia!
    Sim o arquivo que quero mover é o txt.

    A logica que eu imaginei foi a seguinte:



    procura_Arquivos(strPasta)

    'Inicio da função de procura
    Sub procura_Arquivos(Pasta)
     set folder = FSO.getFolder (Pasta)

     arquivo_comp = "nada"
    'Aqui entrar em loop enquanto achar todos os arquivos da pasta
     

    for each file in folder.files

       Set objFile = FSO.GetFile(file)

       'Abre o arquivo txt

       Set objTextFile = FSO.OpenTextFile(file,1)
      
    'Entra em loop até chegar a ultima linha do arquivo txt

       Do While objTextFile.AtEndOfStream <> True
         'A variavel linha recebe a o string da linha "ativa"
          linha = objTextFile.ReadLine
         'A variavel linha recebe a string contido entre os delimitadores "|#"
         linha = Split(linha,"|#")
         'Inclusão dos dados nas variaveis
          .
          .
          .
         'Exportação para Mysql
          .
          .
          .
    'Fim do loop chegou a ultima linha do arquivo

      Loop
     
    'Como na primeira versão postada não estava conseguindo mover nenhum arquivo achei que era porque não poderia mover o arquivo que estava "ativo" então criei a variavel arquivo_comp e iniciei o seu valor como nada para que na primeira vez que testasse esta condição a mesma não moveria o arquivo.

      If arquivo_comp <> "nada" Then
      wscript.echo "entrei no if"
       FSO.MoveFile arquivo_comp, strPastaSaida 
      End If

     'A variavel arquivo_comp recebe o valor de file que é o caminho completo do arquivo(c:\entrada\nome_do_arquivo.txt)


      arquivo_comp = file
    'Fim do loop  (terminou todos os arquivos da pasta
      Next
    'aqui fecho o ultimo arquivo da pasta (todos os outros já foram movidos pelo movefile dentro do if
     objTextFile.Close

     end sub
    'aqui tento mover o ultimo arquivo da pasta pos dentro do loop copio sempre o arquivo anderior
    FSO.MoveFile arquivo_comp, strPastaSaida



    Não sei se consegui explicar legal a logiga que tentei usar, qualquer coisa tento melhorar a explicação.
    Obs.: como inicio a variavel arquivo_comp como "nada" a primeira vez que passa pelo loop não é movido nenhum arquivo pois não entra no condicional, depois abaixo a variavel arquivo_comp recebe o valor de file e ja é movido arquivo na segunda vez que passa pelo loop.
    Sendo assim o arquivo copiado é sempre o que passou no loop anterior, depois que acaba todos os arquivos da pasta fecho o arquivo(o ultimo) e tento move-lo pelo movefile que esta fora do loop(lembrando que sempre movo o arquivo que passou pelo loop anterior.

    Desde já agradeço a mas essa ajuda. 

    Jeferson, bom dia.

    Fiz algumas alterações veja se funciona....


    'Desenvolvido por Jeferson Damasceno
    'Ultima atualização: 18/12/2009
    'Faz o controle de notas importadas


    'Lista arquivos determinada pasta
    strPasta = "C:\teste\"
    strPastaSaida = "C:\teste\teste\"


    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.getFolder(strPasta)
     For each file in objfolder.files
      Set objFile = objFSO.GetFile(file)
      ImportData(File)
      objFSO.MoveFile file, strPastaSaida '& arquivo
       

     Next

    Set objFSO = nothing
    Set objFolder = nothing

    'Responsável somente por importar os dados
    Sub ImportData(strFile)
       
     Set objTextFile = objFSO.OpenTextFile(strfile,1)
     
      Set objConnection = CreateObject("ADODB.Connection")
       objConnection.ConnectionTimeout = 60
       objConnection.CommandTimeout = 400
       objConnection.Open "DRIVER={MySQL ODBC 5.1 Driver};" _
       & "user=" & "root" _
       & ";password=" & "3141323" _
       & ";database=" & "notas" _
       & ";server=" & "localhost" _
       & ";option=" & (1 + 2 + 8 + 32 + 2048 + 16384)
       
     Do While objTextFile.AtEndOfStream <> True
       linha = objTextFile.ReadLine
       linha = Split(linha,"|#")
       'Inclusão dos dados nas variaveis
       nf = Mid(Trim(linha(8)),1,3) & Mid(Trim(linha(8)),5,3)
       nomecliente = Trim(linha(14))
       cpf = Trim(linha(15))
       dataemissao = Trim(linha(16))
       canalvenda = Trim(linha(3))
       uf = Trim(linha(24))
       movimento = Mid(Trim(linha(105)),25,6)
       volume = Mid(Trim(linha(108)),9,10)
       remessa = Mid(Trim(linha(107)),9,10)
       pedido = Mid(Trim(linha(105)),9,10)
       cont = Mid(Trim(linha(74)),38,2)
       'Exportação para Mysql
      
       objConnection.execute "INSERT INTO tblcadnf(nf,nomecliente,cpfcliente,dataemissao,canalvenda,uf,movimento,volume,remessa,pedido,cont) VALUES ('" & nf & "','" & nomecliente & "','" & cpf & "','" & dataemissao & "','" & canalvenda & "','" & uf & "','" & movimento & "','" & volume & "','" & remessa & "','" & pedido & "','" & cont & "')"
      
     Loop
     objConnection.Close
     objTextFile.close()

    End Sub


    " Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
    sexta-feira, 15 de janeiro de 2010 11:22
  • Marcellus, desculpa a demora para o retorno.

    Funcionou perfeitamente, muito obrigado por mas esta ajuda.
    terça-feira, 19 de janeiro de 2010 11:38