主题：FTP下载

老师，ftp下载，不指定目录，怎么写呢？

Dim r As Row = Tables("规范标准管理").Current
If e.Col.name = "下载"  Then
    Dim dlg As New SaveFileDialog
    If dlg.ShowDialog = DialogResult.OK Then
        Dim ftp1 As new  ftpclient
        ftp1.host="120.    .0"
        ftp1.Account = "ftp "
        ftp1.password = "19***"
        If ftp1.Download(r("路径"),"",True) = True Then
            Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    End  If
End  If