Zjištění velikosti souboru
Function FileSize(File As String) As String
Dim LSize As String
If
File = "" Then
FileSize = ""
Exit Function
End If
LSize
= FileLen(File)
FileSize = LSize
End Function
Příklad volání:
MsgBox FileSize("c:\windows\explorer.exe")