With VB, how can you get the DB file size?

[KathyL]

I'm looking for VB code that will interrogate the PC system folder information, specifically the database file size, and return the database file size into a variable.
Anyone know the code or MS function?
Thanks.

Update: I think I found code:

Public Function getFileSize(sFilePath As String, Optional sSize As String) As Long



On Error GoTo ErrHandler

Dim nByteSize As Currency
Dim nFileSize As Currency

Const KILO As Long = 1024

nByteSize = FileLen(sFilePath)

If (UCase$(sSize) = "M") Then
nFileSize = nByteSize / KILO / KILO
ElseIf (UCase$(sSize) = "K") Then
nFileSize = nByteSize / KILO
Else
nFileSize = nByteSize
End If

getFileSize = nFileSize

Exit Function
ErrHandler:

MsgBox "Error in getFileSize( )." & vbCrLf & vbCrLf & _
"Error #" & Err.Number & vbCrLf & vbCrLf & Err.Description
Err.Clear

End Function

[ajetrumpet]

try:

Function FileSize(strFile As String)

'******************************************************************************
'                                                                             *
'Author: Adam Evanovich                                                       *
'Date: 7/7/2006                                                               *
'Purpose: Returns the size of the specified file.                             *
'                                                                             *
'Arguments:                                                                   *
'strFile > Path of the File being evaluated.                                  *
'                                                                             *
'******************************************************************************

On Error GoTo Err_Handle

If GetAttr(strFile) <> 32 Then
   MsgBox "File not found..."
      GoTo Exit_Handle
End If

   FileSize = CDbl(FileLen(strFile))
   
   FileSize = IIf(FileSize < (CDbl(1024)), _
                  CStr(Format(FileSize, "#,###")) & "B", _
              IIf(FileSize < (CDbl(1024) * CDbl(1024)), _
                  CStr(Format(FileSize / CDbl(1024), "#,###.00")) & "KB", _
              IIf(FileSize < (CDbl(1024) * CDbl(1024) * CDbl(1024)), _
                  CStr(Format(FileSize / CDbl(1024) / CDbl(1024), "#,###.00")) & "MB", _
                  CStr(Format(FileSize / CDbl(1024) / CDbl(1024) / CDbl(1024), "###,###.00")) & "GB" _
              )))

Exit_Handle:
   Exit Function
   
Err_Handle:
   MsgBox (Err.Description)
      Resume Exit_Handle

End Function '//LL

the size of your opened db will not be accurate though. I believe each users that has it opened will bloat it just a little bit in size. sorry, didn't see the edit!