Dim localPath As String = "c:¥temp"
Dim remotePath As String = "myFolder"

If Not Directory.Exists(localPath + "¥" + remotePath) Then
    Directory.CreateDirectory(localPath + "¥" + remotePath)
End If

Dim filesToGet As List(Of ListEntry) = ftp.ListDirectoryTree(remotePath, "", False)
For Each le As ListEntry In filesToGet
    If le.Type = EntryType.Directory Then
        Dim dir As String = le.FullName.Replace("/", "¥")
        If Not Directory.Exists(localPath + dir) Then
            Directory.CreateDirectory(localPath + dir)
        End If
    ElseIf le.Type = EntryType.File Then
        Using fs As New FileStream(localPath + le.FullName.Replace("/", "¥"), FileMode.Create, FileAccess.Write)
            fs.Position = fs.Length
            ftp.Get(le.FullName, fs.Position, fs)
        End Using
    End If
Next

string localPath = "c:¥¥temp";
string remotePath = "myFolder";

if (!Directory.Exists(localPath + "¥¥" + remotePath))
{
    Directory.CreateDirectory(localPath + "¥¥" + remotePath);
}


List filesToGet = ftp1.ListDirectoryTree(remotePath, "", false);
foreach (ListEntry le in filesToGet)
{
    if (le.Type == EntryType.Directory)
    {
        string dir = le.FullName.Replace("/", "¥¥");
        if (!Directory.Exists(localPath + dir))
        {
            Directory.CreateDirectory(localPath + dir);
        }
    }
    else if (le.Type == EntryType.File)
    {
        using (FileStream fs = new FileStream(localPath + le.FullName.Replace("/", "¥¥"), FileMode.Create, FileAccess.Write))
        {
            fs.Position = fs.Length;
            ftp1.Get(le.FullName, fs.Position, fs);
        }
    }
}