how to get image sizes

[Navarone]

Is it possible to get the image size of jpg images using vb6? In the following code I get the names of the images in my folder. I would like to ad a routine that would also get the image size for each image. I wasn't sure if i could even do this with this code. Any help appreciated.

Dim nReplace As String
    Dim folderContent As String
 
    For Each fldr In myFolders
        Set myFiles = fldr.Files
        folderContent = vbNullString
        i = 0
        For Each f In myFiles
            If VBA.Right$(f.Name, 4) = ".jpg" Or VBA.Right$(f.Name, 4) = ".JPG" Then
                'append file names
                folderContent = (folderContent & "&pic" & i & "=" & f.Name)
                i = i + 1
            End If
        Next f
        'prepend file count
        nReplace = "&Rc=" & i & folderContent
        Set ts = fso.OpenTextFile(App.Path & "\image_txt_files\" & fldr.Name & ".txt", ForWriting, True, TristateFalse)
        ts.Write (nReplace)
        ts.Close    'close each file, not just the last one
    Next fldr