主题：如何把互联网的文件管理器设置成与本地的一样？

我用 FlashFXP  打开，看效果

用此法，仍然出现550错误，不过可以上传

我在命令窗口测试下面的代码，通过测试，前提是文号和类型，不能是中文：

Dim ftp1 As new ftpclient
ftp1.host="219.138.92.236"
ftp1.Account = "hmsx"
ftp1.password = "hmsx"
Dim ph As String = "/2010/"
If ftp1.DirectoryExists(ph) = False
    ftp1.MakeDir(ph)
End If
ph = ph & Tables("表A").Current("类型") & "/"
If ftp1.DirectoryExists(ph) = False
    ftp1.MakeDir(ph)
End If
ph = ph & Tables("表A").Current("文号") & "/"
If ftp1.DirectoryExists(ph) = False
    ftp1.MakeDir(ph)
End If

用狐爸的代码测试如下：

1、先把FTP中的文件夹删除

2、用代码测试，执行后正常，也可以建立中文文件夹

3、FTP中已经建立了文件夹后，再次执行代码，就出现505错误

我反复执行多次，偶尔会提示操作超时，然后提示505错误。

设置TimeOut属性，延长操作尝试时间之后，反复执行就不再出现错误了：

Dim ftp1 As new ftpclient
ftp1.host="219.138.92.236"
ftp1.Account = "hmsx"
ftp1.password = "hmsx"
ftp1.TimeOut = 10000
Dim ph As String = "/2010/"
If ftp1.DirectoryExists(ph) = False
    ftp1.MakeDir(ph)
End If
ph = ph & Tables("表A").Current("类型") & "/"
If ftp1.DirectoryExists(ph) = False
    ftp1.MakeDir(ph)
End If
ph = ph & Tables("表A").Current("文号") & "/"
If ftp1.DirectoryExists(ph) = False
    ftp1.MakeDir(ph)
End If

再次提示：我不是用中文测试的。

在命令窗口执行下面的代码，然后选择多个文件并测试看看：

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
   For Each fl As String In dlg.FileNames
       Output.Show(fl)
   Next
End If

剩下的你可以自己完成了。

狐爸，不行啊，始终只上传第一个文件。你帮看看

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:远程文件.foxdb

测试通过：

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
Dim fl As String
Dim nl As String
Dim ftp1 As new ftpclient
ftp1.host="219.138.92.236"
ftp1.Account = "hmsx"
ftp1.password = "hmsx"
ftp1.TimeOut = 10000
Dim ph As String = "/2010/"
If ftp1.DirectoryExists(ph) = False
    ftp1.MakeDir(ph)
End If
ph = ph & Tables("表A").Current("类型") & "/"
If ftp1.DirectoryExists(ph) = False
    ftp1.MakeDir(ph)
End If
ph = ph & Tables("表A").Current("文号") & "/"
If ftp1.DirectoryExists(ph) = False
    ftp1.MakeDir(ph)
End If
If dlg.ShowDialog = DialogResult.OK Then
    If ftp1.DirectoryExists(ph) = False
        ftp1.MakeDir(ph)
    End If   
    For Each fl  In dlg.FileNames
        nl = ph & FileSys.GetName(fl)
        ftp1.upload(fl, nl,True)
        Dim v As String = Tables("表A").Current("报告")
        If v = "" Then
            v = nl
        Else
            v = v & vbcrlf & nl
        End IF
        Tables("表A").Current("报告") = V
    Next
Else
    Return
End If

你原来的错误在于：

 For Each fl  In dlg.FileNames

        fl = dlg.FilelName
        nl = ph & FileSys.GetName(fl)

红色部分就是你的错误根源，虽然你选择了多个文件，但是你这样的代码等于是重复使用其中一个文件而已。