|
|
Postada em 19/11/2005 17:43 hs
Estou utilizando o metodo Open para se abrir um arquivo Ex: Open c:..... for ..... as #1 tamarq = ?????? close #1 Eu gostarias de saber qual a funcao para retorna o tamanho do arquivo em bytes. T+ |
|
|
|
|
|
|
|
Postada em 20/11/2005 09:07 hs
Para um arquivo previamente aberto use:
tamarq = LOF(1)
Para um arquivo fechado use:
tamarq = FileLen("c: empmeuarquivo.txt")
|
|
|
|
|
|
Postada em 20/11/2005 09:10 hs
'Você pode usar o FileSystem Objects: Private Sub TamanhoArquivo()
Dim Tamanho As Long
Tamanho = FileSystem.FileLen("C:Teste|Teste.txt")
Tamanho = Tamanho / 1000
Me.Label1.Caption = "O tamanho do arquivo é de " & Tamanho & " KB"
End Sub Private Sub Command1_Click()
TamanhoArquivo
End Sub
Marcone
|
|
TÓPICO EDITADO
|
|
|
|
