' This code is licensed according to the terms and conditions listed here.

' Declarations and such needed for the example:
' (Copy them to the (declarations) section of a module.)
Public Type ULARGE_INTEGER
    LowPart As Long
    HighPart As Long
End Type

Public Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type


Const GENERIC_READ = &H80000000
Const GENERIC_WRITE = &H40000000
Const FILE_SHARE_READ = &H1
Const FILE_SHARE_WRITE = &H2
Const CREATE_ALWAYS =  2 
Const CREATE_NEW =  1 
Const OPEN_ALWAYS =  4 
Const OPEN_EXISTING =  3 
Const TRUNCATE_EXISTING =  5 
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_FLAG_DELETE_ON_CLOSE = &H4000000
Const FILE_FLAG_NO_BUFFERING = &H20000000
Const FILE_FLAG_OVERLAPPED = &H40000000
Const FILE_FLAG_POSIX_SEMANTICS = &H1000000
Const FILE_FLAG_RANDOM_ACCESS = &H10000000
Const FILE_FLAG_SEQUENTIAL_SCAN = &H8000000
Const FILE_FLAG_WRITE_THROUGH = &H80000000

Public Declare Function GetFileSize Lib "kernel32.dll" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Public Declare Function CreateFile Lib "kernel32.dll" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, _
   ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, _
   ByVal hTemplateFile As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function GetLastError Lib "kernel32.dll" () As Long

' *** Place the following code inside the form window. ***

Public Function sbFileSize()

   On Error GoTo sbFileSize_Error

' Display the file size of "C:\BaseBdPortal_new_log.ldf".  Note how
' the alternate declare of the CreateFile function (needed to get the file's handle)
' must be used -- see that function's page for details.
Dim hFile As Long  ' receives a handle to the file
Dim loworder As Long, highorder As Long  ' receive the low- and high-order halves of the file size
Dim retval As Long  ' return value
Dim errorcode As Long  ' error code

' Get a handle to the file using CreateFile's alternate declare (necessary for non-Win NT).
hFile = CreateFile("C:\BaseBdPortal_new_log.ldf", GENERIC_READ, FILE_SHARE_READ, ByVal CLng( 0 ), OPEN_EXISTING, FILE_ATTRIBUTE_ARCHIVE,  0 )

If hFile = - 1  Then  ' error opening the file
  Debug.Print "Could not open file C:\DimS\BaseBdPortal_new_log.ldf"
  End  ' abort the program
End If

' Read and display that file's size in bytes.
highorder =  0   ' initialize the value for high-order half
loworder = GetFileSize(hFile, highorder)  ' read the file's size
If highorder =  0  Then  ' if there is no high-order part
  Debug.Print "File size:"; loworder; "bytes"  ' display the file size
Else  ' if there is a high-order part (file size >= 4.29 GB!)
  ' Visual Basic has no 64-bit variables, so we can't display the actual value:
  Debug.Print "File size:"; highorder; "* 2^32 +"; loworder; "bytes (in base-10)"
  ' But we can combine the two hex values to give the result in hexadecimal:
  Debug.Print "File size: "; Hex(highorder); Hex(loworder); " bytes (in hexadecimal)"
End If

' Close the file
retval = CloseHandle(hFile)  ' close the handle

   On Error GoTo  0 
Exit_sbFileSize:
   Exit Function

sbFileSize_Error:

    MsgBox "Ошибка " & Err.Number & " (" & Err.Description & ") в процедуре sbFileSize"
    Resume Exit_sbFileSize

End Function

File size:-730988544 bytes