2

大家下午好，

我正在尝试创建此代码，该代码将允许我从输入到 TextBox1.Text 的目录中创建一个新文件夹，然后打开一个对话框并选择一个 PDF，然后将文件路径放入 TextBox2（同样适用用于 TextBox3 中的单独 PDF）。

An unhandled exception of type 'System.IO.IOException' occurred in Microsoft.VisualBasic.dll

Additional information: Could not complete operation since a directory already exists in this path '\\ANVILSRV\Public\Completed Works Orders\98789'.

-

这是我在尝试完成操作时遇到的错误，它创建文件夹并且不移动任何文件。

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

    Dim txt As String
    txt = TextBox1.Text

    If My.Computer.FileSystem.DirectoryExists("\\ANVILSRV\Public\Completed Works Orders\" & txt & "") Then

        MsgBox("Could not create the folder " & txt & " because it already exists.")

    Else

        My.Computer.FileSystem.CreateDirectory("\\ANVILSRV\Public\Completed Works Orders\" & txt & "")

        My.Computer.FileSystem.MoveFile(TextBox2.Text, ("\\ANVILSRV\Public\Completed Works Orders\" & txt & ""), True)

        My.Computer.FileSystem.MoveFile(TextBox3.Text, ("\\ANVILSRV\Public\Completed Works Orders\" & txt & ""), True)

    End If

End Sub

非常感谢任何建议或帮助。

谢谢，

斯蒂芬

4

2 回答 2

2

移动文件语法需要以下参数

sourceFileName= 源文件的完整路径

destinationFileName= 目标文件的完整路径

overWrite= 布尔值，指定是否覆盖已存在的目标文件

FileSystem.MoveFile(sourceFileName As String, destinationFileName As String, overWrite As Boolean)

destinationFileName在您的代码中，您指定了文件夹路径，而不是为参数提供完整的文件路径。在您的代码中提供完整的文件名，它将起作用。例如"C:\Windows\DirectX.txt"

试试下面的代码

My.Computer.FileSystem.MoveFile(TextBox2.Text, ("\\ANVILSRV\Public\Completed Works Orders\" & txt & "\" & fileName), True)
于 2015-10-13T15:16:36.353 回答
0

我建议将您在代码中重复使用几次的路径更改为常量。

此外，""不需要所有路径字符串末尾的 。这就是我的意思（我只做了一个快速测试，所以我没有包括所有内容，但你可以从中得到这个想法；我测试了以下代码并且它有效）：

Const path As String = "\\ANVILSRV\Public\Completed Works Orders\"

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim txt As String
    txt = TextBox1.Text

    If My.Computer.FileSystem.DirectoryExists(path & txt) Then
        MsgBox("Could not create the folder " & txt & " because it already exists.")
    Else
        My.Computer.FileSystem.CreateDirectory(path & txt)
    End If
End Sub
于 2015-10-13T15:23:40.707 回答