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

狐爸，扩展列属性是否要设置为远程文件？

当然

设置为远程文件后，点增加按钮是从服务器上添加文件 啊，应该是从本地添加文件 再上传的。

看来我说错了。

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

请狐爸帮我弄一下，密码发短信给你了

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

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

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

 

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

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

 

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

 

狐爸，.MakeDir创建目录只支持两级，三级就出错。例如把ph改为如下：

Dim ph As String = "/2010/" & Tables("表A").Current("类型") & "/" & Tables("表A").Current("文号") & "/"

准确地说只创建一级，如果在目录下把所有目录删除，那么就只创建一级

出错为：

此主题相关图片如下：捕获.jpg

并且不能建立目录。

如果把代码ftp1.MakeDir(ph)改为：

ftp1.MakeDir("/2010/")

ftp1.MakeDir("/2010/" & Tables("表A").Current("类型") & "/")

ftp1.MakeDir("/2010/" & Tables("表A").Current("类型") & "/" & Tables("表A").Current("文号") & "/" )

 

仍然出550错误,不断单击确定，有几层目录就单击几下，单击完毕，还可以建立目录，也可以复制资料。请狐爸看看是不是bug

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

 

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

FTP管理器不支持中文，而不是我的ftp，用项目建立的中文目录，在foxtabel的FTP管理器中看到的是乱码，但在服务器中正确。请看看是不是BUG

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