我创建一层目录的时候没有问题，但是创建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
加好友 
发短信
Post By：2022/7/3 9:31:00 [显示全部帖子]
