Den*_*aub 35
Dim myFile As New FileInfo("file.txt")
Dim sizeInBytes As Long = myFile.Length
Run Code Online (Sandbox Code Playgroud)
对于寻找较短VB版本的人:
FileLen("file.txt")
Run Code Online (Sandbox Code Playgroud)
https://msdn.microsoft.com/en-us/library/microsoft.visualbasic.filesystem.filelen