主题：MoveDirectory

FileSys.MoveDirectory("C:\YourFolder", "D:\MyFolder")

代码

Dim r As Row = Tables("组查询版本_table2").Current

Dim id As Integer = user.name.IndexOf("@")

Dim str As String = user.name.SubString(0,id)

If e.Sender.Checked Then

    If MessageBox.show("版本流水号:" & r("编号") & "确定要停用?","中式通知停用?",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes  Then

        r("停用人员邮箱") = user.Name

        r("停用人员") = str

        r("停用时间") = Date.now

        Dim str1 As String = r("测试组名") & "/temp/" & r("编号")

        r.save

        Dim ftp As New FtpClient

        ftp.Host="192.168.1.35"

        ftp.Account = "tester"

        ftp.Password = "tester"

        If ftp.DirExists(str1) = False Then

            ftp.MakeDir(str1)

            msgbox(0)

            FileSys.MoveDirectory(r("版本目录"), str1)

            msgbox(1)

            r("版本目录") = str1

            r("完整路径") = "\\192.168.1.35\bdcom\route_bin" & "/" & r("版本目录")

            msgbox(2)

            r.save

        End If         

    Else

        e.Sender.Checked = False

    End If

End If

执行FileSys.MoveDirectory(r("版本目录"), str1)报错

未能找到目录“开发者/DEV2018100057”。

可是有这个目录啊

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