' DisplayRequestProperties prints a request's properties.
' This method should be called after the request is sent to the server.
Private Shared Sub DisplayRequestProperties(ByVal request As FtpWebRequest)
Console.WriteLine("User {0} {1}", request.Credentials.GetCredential(request.RequestUri, "basic").UserName, request.RequestUri)
Console.WriteLine("Request: {0} {1}", request.Method, request.RequestUri)
Console.WriteLine("Passive: {0} Keep alive: {1} Binary: {2} Timeout: {3}.", request.UsePassive, request.KeepAlive, request.UseBinary, If(request.Timeout = -1, "none", request.Timeout.ToString()))
Dim proxy As IWebProxy = request.Proxy
If proxy IsNot Nothing Then
Console.WriteLine("Proxy: {0}", proxy.GetProxy(request.RequestUri))
Else
Console.WriteLine("Proxy: (none)")
End If
Console.WriteLine("ConnectionGroup: {0}", If(request.ConnectionGroupName Is Nothing, "none", request.ConnectionGroupName))
Console.WriteLine("Encrypted connection: {0}", request.EnableSsl)
Console.WriteLine("Method: {0}", request.Method)
End Sub