Размер файла в байтах (FSO)
Public Function GetFileSize_FSO(sFilePath$) As Long
Dim strFile As String
Dim objFSO As Object
Dim objFile As Object
Dim bExists As Boolean
On Error GoTo GetFileSize_FSO_Err
Set objFSO = CreateObject("Scripting.FileSystemObject")
bExists = objFSO.FileExists(sFilePath)
If bExists = False Then GoTo GetFileSize_FSO_Bye
Set objFile = objFSO.GetFile(sFilePath)
GetFileSize_FSO = objFile.Size
GetFileSize_FSO_Bye:
On Error Resume Next
Set objFile = Nothing
Set objFSO = Nothing
Err.Clear
Exit Function
GetFileSize_FSO_Err:
Err.Clear
Resume GetFileSize_FSO_Bye
End Function
|