Início![[Resolvido]Propriedade do Arquivo (Tamanho) Empty](https://2img.net/i/empty.gif)
Convidado 29/4/2014, 20:39Amigos... Alguém sabe como pegar o tamanho de um arquivo?
Grato pela ajuda.
Grato pela ajuda.
3 participantes
[Resolvido]Propriedade do Arquivo (Tamanho)
Convidado- Convidado
Fernando Bueno- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2115
Registrado : 13/04/2012
Boa tarde Piloto, seria em Kilobytes?
.................................................................................
Um abraço
Fernando Bueno
O aumento do conhecimento é como uma esfera dilatando-se no espaço
quanto maior a nossa compreensão,
maior o nosso contacto com o desconhecido
quanto maior a nossa compreensão,
maior o nosso contacto com o desconhecido
![[Resolvido]Propriedade do Arquivo (Tamanho) 16rzeq](https://2img.net/h/oi61.tinypic.com/16rzeq.gif)
Convidado- Convidado
Exato Amigão.
Cumprimentos.
Cumprimentos.
Fernando Bueno- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2115
Registrado : 13/04/2012
Ve se te ajuda em alguma coisa..
http://brzaccessdeveloper.blogspot.com.br/2010/03/vba-obtenha-o-tamanho-de-arquivo-em.html
http://brzaccessdeveloper.blogspot.com.br/2010/03/vba-obtenha-o-tamanho-de-arquivo-em.html
.................................................................................
Um abraço
Fernando Bueno
O aumento do conhecimento é como uma esfera dilatando-se no espaço
quanto maior a nossa compreensão,
maior o nosso contacto com o desconhecido
quanto maior a nossa compreensão,
maior o nosso contacto com o desconhecido
Avelino Sampaio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010
Olá!
Dica 30:
http://www.usandoaccess.com.br/dicas/dica45.asp?id=1&idlista=182#inicio
Sucesso!
Dica 30:
http://www.usandoaccess.com.br/dicas/dica45.asp?id=1&idlista=182#inicio
Sucesso!
.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.
Convidado- Convidado
Em Bytes:
Sub Get_File_Size()
File1 = "c:\BCFESDE5.pdf"
MsgBox "The Size of the File is " & FileLen(File1) & " bytes"
End Sub
O ideal seria em kb
Cumprimentos.
Sub Get_File_Size()
File1 = "c:\BCFESDE5.pdf"
MsgBox "The Size of the File is " & FileLen(File1) & " bytes"
End Sub
O ideal seria em kb
Cumprimentos.
gilberlanio- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 814
Registrado : 30/08/2010
Veja esse exemplo, não é de minha autoria
Convidado- Convidado
Opa Mestre não havia percebido a sua resposta.. Podemos então converter o valor não?
Cumprimentos.
Cumprimentos.
Convidado- Convidado
Bastou converter para Kb dividindo por 1024
Msg = MsgBox("A imagem foi redimensionada, a nova imagem possui o tamanho de: " & FileLen(OldName) / 1024 & " bytes." _
& vbNewLine & "Deseja substituir pelo arquivo existente?", vbYesNo + vbQuestion, "SUBSTIR ARQUIVO")
Obrigado a todos pela ajuda.
Msg = MsgBox("A imagem foi redimensionada, a nova imagem possui o tamanho de: " & FileLen(OldName) / 1024 & " bytes." _
& vbNewLine & "Deseja substituir pelo arquivo existente?", vbYesNo + vbQuestion, "SUBSTIR ARQUIVO")
Obrigado a todos pela ajuda.
Fernando Bueno- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2115
Registrado : 13/04/2012
Legal 
.................................................................................
Um abraço
Fernando Bueno
O aumento do conhecimento é como uma esfera dilatando-se no espaço
quanto maior a nossa compreensão,
maior o nosso contacto com o desconhecido
quanto maior a nossa compreensão,
maior o nosso contacto com o desconhecido
Convidado- Convidado
Excelente o exemplo Gilberlanio...
Obrigado por compartilhar.
Obrigado por compartilhar.
Conteúdo patrocinado