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

可以的，在BeforeAttachFile中上传文件，FTPClient提供了上传和删除文件的方法，请自行参考：

http://help.foxtable.com/topics/1410.htm

在BeforeAttachFile定义一个FTPClient:

Dim ftp1 As new ftpclient
ftp1.host="128.169.143.96"
ftp1.Account = "foxuser"
ftp1.password = "136137138"
ftp1.upload(e.SorceFolder & "\" &  e.FileName, "/服务器的子目录/" & e.SourceFile, True)

e.Cancel = True ‘取消本次添加，因为前面上传到服务器了，下面手工添加上传文件的地址

Dim v As String = Tables("XXX").Current("文件")

If v = "" Then

   v = "/服务器的子目录/" & e.SourceFile

Else

   v= v & vbcrlf & "/服务器的子目录/" & e.SourceFile

End IF

Tables("XXX").Current("文件") = V

我在BeforeAttachFile加入下面的代码，测试通过：

MessageBox.show(e.SourceFolder & "\" & e.FileName)

呵呵，本来就没有SourceFile，你怎么用啊。

下面这样才可以得到含路径的文件名：

e.SourceFolder & "\" & e.FileName

当然

看来我说错了。

楼主多试验一下吧，设为远程的话，就要自己做添加按钮，不要用BeforeAttatchFile事件。

请看看窗口1，增加按钮没问题，删除按钮有问题，每次删除的都是第一个，这可能是一个bug，下次更细前我看看

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

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

另你的ftp似乎不支持中文，所以我将类型列内容改为英文的了。

既然一次只能创建一级，就一级一级创建就行啦。

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

不是bug，是你的ftp问题，我用专业ftp软件，也不能在你的ftp上正常使用中文。