VB获得文件夹或文件的大小

Option Explicit

Private Sub Command1_Click()
Me.Print ByteAmount(“C:\1.txt”, 1, 0)
End Sub

Private Function ForWindow(ByVal Length As Double, Optional Nx As Long) As String '字节转换
Dim Strtxt(1) As String, Gtlng As Double
Gtlng = Length
If Gtlng >= 1073741824 Then
Strtxt(0) = FormatNumber(Gtlng / 1073741824, 2) & “GB”
ElseIf Gtlng >= 1048576 Then
Strtxt(0) = FormatNumber(Gtlng / 1048576, 2) & “MB”
ElseIf Gtlng >= 1024 Then
Strtxt(0) = FormatNumber(Gtlng / 1024, 2) & “KB”
Else
Strtxt(0) = Gtlng & “B”
End If
If Gtlng > 0 Then
Strtxt(1) = Format(Gtlng, “#,###,####,###”) & " 字节"
Else
Strtxt(1) = 0 & " 字节"
End If
If Nx = 0 Then
ForWindow = Strtxt(0) & SpaceKaTeX parse error: Expected 'EOF', got '&' at position 5: (1) &̲ "(" & Strtxt(1…(2) & Strtxt(0)
End If
End Function

Private Function ByteAmount(ByVal Path As String, Optional Result As Long, Optional FileType As Long)
Dim Fso As Object, B As Double
Set Fso = CreateObject(“Scripting.FileSystemObject”)
On Error GoTo Mistake
If FileType > 0 Then '文件夹
B = Fso.GetFolder(Path).Size '文件夹大小
’ Fso.GetFolder(Path).Files.Count '文件夹内包含的文件数量
Else
B = Fso.Getfile(Path).Size '文件大小
End If
ByteAmount = ForWindow(B, Result)
Mistake:
Set Fso = Nothing
End Function