Very quick and simple question with inet

[qpabani]

I use the following code to get the size of a website (if theres a better way, please plst below )

Public Function CheckURL(strURL As String, LastModified As String) As Boolean

Dim sBuffer         As String * 1024
Dim lBufferLength   As Long
Dim strObject       As String
'
'connect to the server on HTTP port
'
m_lInternetConnect = InternetConnect(p_lInternetSession, strURL, _
                                     INTERNET_DEFAULT_HTTP_PORT, _
                                     vbNullString, vbNullString, _
                                     INTERNET_SERVICE_HTTP, 0, 0)
'
'prepare HTTP request. We may use "HEAD" command to retrieve
'only response headers, not document itself.
'
m_lHttpRequest = HttpOpenRequest(m_lInternetConnect, "HEAD", _
                                 strObject, "HTTP/1.0", vbNullString, 0, _
                                 INTERNET_FLAG_RELOAD, 0)
If CBool(m_lHttpRequest) Then
    '
    'prepare string buffer to get server response
    '
    lBufferLength = Len(sBuffer)
    '
    'send request to remote server. On this state we need Interent connection.
    'If system not connected to Internet, dialog with default RAS entry will
    'be showed
    '
    iRetVal = HttpSendRequest(m_lHttpRequest, vbNullString, 0, 0, 0)
    '
    'header of the server response. If server has returned content length header
    'value of CheckURL will be True and sBuffer will consist value of the header
    '     
    CheckURL = CBool(HttpQueryInfo(m_lHttpRequest, HTTP_QUERY_CONTENT_LENGTH, _
                                  ByVal sBuffer, lBufferLength, 0))
                                 
    MsgBox CheckURL
End if

If i want to get the size of the file, i use msgbox getsize. However, I only get a response "True"... how can i get the size of the file (without downloading it) and display it in bytes, instead of "True"?

[dmr]

You've declared CheckURL serveral times as Boolean so it could only return true or false...

Which references did you create?
(I can't execute it... )

[qpabani]

sorry.. foolish error its supposed to be msgbox sbuffer. then it works