[Resolvido]Código que lê o arquivo e retorna o tamanho em Kbytes

Bom dia pessoas!


To pesquisando por ai mas ta meio complicado, preciso de um código que me retorne o tamanho de um determinado arquivo e KB ou mega tanto faz

achei este em vb mas não deu, seria algo do gênero


Dim infoReader As System.IO.FileInfo
infoReader = My.Computer.FileSystem.GetFileInfo("C:\testfile.txt")
MsgBox("File is " & infoReader.Length & " bytes.")


agradeço atenção.

consegui este, se alguém tiver um melhor



Dim MySize
MySize = FileLen("C:\minhapasta\meuarquivo.doc")
MsgBox ("File is " & MySize & " bytes.")

Ou;

Public Function fncObterTamanhoFicheiro()
'Requer ativa a referencia VBA
'Microsoft Scripting Runtime
Dim FSO As Scripting.FileSystemObject
Set FSO = New Scripting.FileSystemObject
Dim File As Scripting.File
Dim strCaminho As String

    strCaminho = "c:\teste.txt"
    
    If FSO.FileExists(strCaminho) Then
         Set File = FSO.GetFile(strCaminho)
        
        fileSize = Format(File.Size / 1000000, "#,##0.00") & " " & "Megas"
    MsgBox fileSize
    End If
End Function

Valeu, muito obrigado!

Obrigado pelo retorno o forum agradece.