以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何动态的设置附件的服务器目录?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178401)

--  作者:moseser
--  发布时间:2022/7/3 9:31:00
--  [求助]如何动态的设置附件的服务器目录?
如题, 我想动态的设置 上传附件的目录,该如何设置
--  作者:有点蓝
--  发布时间:2022/7/3 20:34:00
--  
参考:http://www.foxtable.com/webhelp/topics/2210.htm
--  作者:moseser
--  发布时间:2022/7/3 23:03:00
--  回复:(有点蓝)参考:http://www.foxtable.com/webh...
我是远程存放文件的,在服务器上怎么增加文件夹?
--  作者:有点蓝
--  发布时间:2022/7/3 23:11:00
--  
ftp?这种要自己写代码控制,参考:http://www.foxtable.com/webhelp/topics/1410.htm
[此贴子已经被作者于2022/7/3 23:11:36编辑过]

--  作者:moseser
--  发布时间:2022/7/4 7:43:00
--  回复:(有点蓝)ftp?这种要自己写代码控制,参考:h...
我创建一层目录的时候没有问题,但是创建2层目录的时候,就创建不成功,代码如下,麻烦帮忙看下
Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")

Dim r As Row =  CurrentTable.Current
Dim tn As String = CurrentTable.Name
pv.BindingField = tn & ".问题影像"
Dim name As String = r("问题反馈人")
Dim filter As String = "\\" & name & "\\" & "问题影像"

Dim ftp1 As New FtpClient
ftp1.Host = "188.888.888.88"
ftp1.Account = "ftpuser"
ftp1.Password = "299kk999"
If ftp1.DirExists(filter) Then
    MessageBox.show("目录已经存在", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Else
    ftp1.MakeDir(filter)
    
End If

pv.FTPClient.RootDir = filter

--  作者:有点蓝
--  发布时间:2022/7/4 8:34:00
--  
目录要一层一层的创建,先创建第一层,再创建第二层