Operación FTP de conexión VB.net

Importa System.Net

Importa System.IO

Módulo FtpSample

Sub Main(ByVal args() As String)

Si args.Length = 0 O si no args(0).Equals("/?") Entonces

DisplayUsage()

Si no, si args.Length = 1 Entonces

Descargar(args(0))

ElseIf args.Length = 2 Entonces

Si args(0).Equals("/list") Entonces

Lista(args(1))

Else

Subir(args(0), args(1))

Finalizar si

Else

Console.WriteLine("Parámetro no reconocido.")

End If

End Sub

Private Sub DisplayUsage()

Console.WriteLine("USAGE:")

Console.WriteLine(" Ftags:")