Try using FtpGetFileSize; as follows:
Public Declare Function FtpGetFileSize Lib "wininet.dll" (ByVal hFtpSession As Long, _
ByVal lpszRemoteFile As String) As Long
Public Function SizeOfFile(ByVal RemoteFileName As String)
Dim hFile
hFile = FtpOpenFile(hConnect, Trim(RemoteFileName), GENERIC_READ, _
FTP_TRANSFER_TYPE_UNKNOWN, 0)
FileSize = FtpGetFileSize(hFile, RemoteFile)
End Function
~CIAO~