主题：FTP动态目录无法建立

 你要动态创建目录才行的。

Dim path1 As String = fp & "\" & Tables("项目资料").Current("年份")
Dim path2 As String = path1 & "\" & Tables("项目资料").Current("档案编号")
If ftp.DirExists(path1) = False Then
    ftp.MakeDir(path1)
End If
If ftp.DirExists(path2) = False Then
    ftp.MakeDir(path2)
End If