主题：[求助]为什么同一段代码发布后不执行呢？

Dim Result As DialogResult = MessageBox.Show("是否更新附件?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

    Dim dlg As New FolderBrowserDialog

    If dlg.ShowDialog = DialogResult.Ok Then

        Dim bendilujing As String = ProjectPath + "Attachments"

        If FileSys.DirectoryExists("bendilujing") Then

            FileSys.DeleteDirectory(bendilujing,2,2)

            FileSys.CreateDirectory("bendilujing")

            FileSys.CopyDirectory (dlg.SelectedPath, bendilujing, True)

            MessageBox.Show("附件更新成功!", "提示")

        End If

    End If

End If

上述代码在为发布的时候能够执行成功，

但是发布后了不能复制附件夹呢？