VBA, MS Access MS Access в примерах

Размер файла в байтах (FSO)

Public Function GetFileSize_FSO(sFilePath$) As Long
' Возвращает размер переданного в аргументе файла в байтах
'---------------------------------------------------------------------------------------------------/
Dim strFile As String
Dim objFSO As Object    ' или : as FileSystemObject
Dim objFile As Object   ' или : as File
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:
    'MsgBox "Error " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "in procedure FilesList", vbCritical, "Error!"
    Err.Clear
    Resume GetFileSize_FSO_Bye
End Function

Назад ToTop
L.E. 21.05.2022
Рейтинг@Mail.ru