[Tasos]

Καλημέρα σε όλους!
Δημήτρη σε μια λειτουργική μονάδα (Module) πρόσθεσε τον παρακάτω κώδικα:

Public Function GetFileLen(ByVal filePath As String) As String
    Dim FileLen As Double
    FileLen = FileLen(filePath)
    
    Select Case FileLen
    Case Is >= 1099511627776#
        GetFileLen = FormatNumber(FileLen / 1099511627776#, 2) & " TB"
    Case 1073741824 To 1099511627775#
        GetFileLen = FormatNumber(FileLen / 1073741824, 2) & " GB"
    Case 1048576 To 1073741823
        GetFileLen = FormatNumber(FileLen / 1048576, 2) & " MB"
    Case 1024 To 1048575
        GetFileLen = FormatNumber(FileLen / 1024, 2) & " KB"
    Case 0 To 1023
        GetFileLen = FormatNumber(FileLen, 2) & " bytes"
    Case Else
        GetFileLen = vbNullString
    End Select
    
End Function

Για να καλέσεις την παραπάνω συνάρτηση από φόρμα ή από ερώτημα ακολούθησε το παράδειγμα:

=GetFileLen([filePath]) όπου [filePath] είναι το πεδίο με τη διαδρομή του αρχείου.

Καλή συνέχεια!

Τάσος