[VB.NET]FTP, trasferire una Cartella

[fedrock]

Come da titolo, non ho ben chiaro come trasferire una cartella by ftp, per trasferire un file uso semplicemente:

 
Dim clsrequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://sito.com/file.estensione), System.Net.FtpWebRequest)
                clsrequest.Credentials = New System.Net.NetworkCredential("id", "password")
                clsrequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
                Dim fileeee() As Byte = System.IO.File.ReadAllBytes(percorso file da trasferire)
                Dim clsstream As System.IO.Stream = clsrequest.GetRequestStream()
                clsstream.Write(fileeee, 0, fileeee.Length)
                clsstream.Close()
                clsstream.Dispose()

Come potrei modificare il tutto per inviare un'intera directory?