FiveTech Support Forums

 Public Function GetRemoteFilenameTimestamp(ByVal address As Uri) As Date

            Dim request As System.Net.HttpWebRequest
            Dim response As System.Net.HttpWebResponse = Nothing
            Dim dat As Date

            Try
                ' Create the web request   
                request = DirectCast(System.Net.WebRequest.Create(address), System.Net.HttpWebRequest)

                ' Get response   
                response = DirectCast(request.GetResponse(), System.Net.HttpWebResponse)
                dat = response.Headers.Item("Last-Modified")

                'response.Headers.Item("Content-Length")

            Finally
                If Not response Is Nothing Then response.Close()
            End Try

            Return dat

        End Function