File On FTP Server (Get Last Time Modified)

[scorpion53061]

In this function, I am logged in. sFileName is hte name of the file I am
looking at on the FTP Server

I have a file called keyword.mdb on the FTP Server that is the equivalent of
sFileName.

But I get 2 errors:

1. at times it says it is not a plain file
2. It will tell me that "mdtm" is not supported.

Any suggestions or ideas to make this work?

Public Function GetFileDate(ByVal sFileName As String) As Long

Dim size As Long

If (Not (m_bLoggedIn)) Then

Login()

End If

SendCommand("quote mdtm " & sFileName)

size = 0

If (m_iRetValue = 213) Then

size = Int64.Parse(m_sReply.Substring(4))

Else

MessageString = m_sReply

Throw New IOException(m_sReply.Substring(4))

End If

Return size

End Function