FTP子目录 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → FTP子目录

共有3707人关注过本帖树形打印复制链接主题：FTP子目录

seal51

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00

FTP子目录 发帖心情

Post By：2015/4/16 19:20:00 [只看该作者]

我假设的FTP不能创建子目录，要在哪里设置呢？

seal51

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2015/4/16 19:42:00 [只看该作者]

是需要将远程的根目录设置为共享给FTP用户吗？

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2015/4/16 19:54:00 [只看该作者]

ftp和共享没有关系，不能创建子目录，有什么提示吗？

seal51

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2015/4/16 20:11:00 [只看该作者]

Dim ftp1 As FtpClient =e.DataCol.FTPClient

Dim dr As DataRow = e.DataRow

If dr.IsNull("图号") Then

MessageBox.Show("图号不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Cancel = True

Else

Dim fp As String ="/tudoc/" & e.DataRow("图号")

If ftp1.DirExists(fp)=False Then

If ftp1.MakeDir(fp)

End If

ftp1.RootDir = fp

ftp1.OpenManager

If Forms("图纸编辑").Opened Then

Dim fm1 As WinForm.FileManager = Forms("图纸编辑").Controls("FileManager1")

Dim ftp2 As FtpClient = fm1.FTPclient

If ftp2.DirExists(fp)=False Then

ftp2.MakeDir(fp)

End If

ftp2.RootDir = fp

End If

seal51

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2015/4/16 20:15:00 [只看该作者]

狐狸爸爸，你好，代码见楼上，经过工作人员的远程帮助，结论是没有往下级建目录的权限，也就是不能根据图号建立各自的文件夹，我是新手，百度了一天都没有结果，偶然将根目录共享给FTP登陆用户，这段代码起作用了，不知道这样可否

狐狸爸爸

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2015/4/16 20:18:00 [只看该作者]

嗯，可以这么理解，你要给ftp用户设置读写这个目录的权限，我也遇到过不能删除文件的情况，授权后解决。

seal51

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2015/4/16 22:39:00 [只看该作者]

谢谢狐狸爸爸的回复

下一主题 >> << 上一主题

主题：FTP子目录