Code
FUNCTION FileSize (BYVAL sFileName AS STRING) AS QUAD
    'Purpose
    '   Used to determine the size of a file.
    'Parameters
    '   sFileName (STRING) = The name of the file we're working with.
    'Return (QUAD)
    '   Returns the size of the specified file.
    '   Returns -1 if an error occurs (ex. file not found).
    'Version History
    '   1.00 2010.03.02

    LOCAL ddFile AS DIRDATA
    LOCAL qSize  AS QUAD
    IF LEN(DIR$(sFileName TO ddFile)) THEN
        DIR$ CLOSE
        qSize = ddFile.FileSizeHigh
        SHIFT LEFT qSize, 32
        qSize OR= ddFile.FileSizeLow
        FUNCTION = qSize
    ELSE
        FUNCTION = -1
    END IF

END FUNCTION

The Captian
Today they call you "crazy". Tomorrow they call you "ahead of your time."
Global Skywatch Learn about Chemtrails - You're breathing them now!
OnlyTheBestHerbs.com World-class supplements
Mercury Talk Why you are sick.
OneUp Domains Domains, Hosting, Email
1-800-358-4278 (U.S. & Canada)