Public Function getDateTime(ByVal file As String) As String
        Dim ftpFileDateTimeStampreq As FtpWebRequest
        Dim responseTime As FtpWebResponse
        Try
            ftpFileDateTimeStampreq = DirectCast(WebRequest.Create(New Uri("ftp://mioFTP.org/updaters" + "/" + file)), FtpWebRequest)
            ftpFileDateTimeStampreq.Method = WebRequestMethods.Ftp.GetDateTimestamp
            ftpFileDateTimeStampreq.UseBinary = True
            ftpFileDateTimeStampreq.Credentials = New NetworkCredential("userName", "psw")
            responseTime = DirectCast(ftpFileDateTimeStampreq.GetResponse(), FtpWebResponse)
            Return responseTime.LastModified.ToString()
        Catch we As WebException
            Return ""
        End Try
    End Function