.net 通过慢速连接以编程方式按顺序保存会挂起MS项目

.net 通过慢速连接以编程方式按顺序保存会挂起MS项目,.net,vb.net,ms-project,.net,Vb.net,Ms Project,我注意到,当发出FileSave,然后紧接着发出filesavas时,会导致MS Project挂起而没有任何错误。违规代码是: Public Sub CleanXML(file As String) Dim oActiveApp As MSProject.Application = GetObject(, "MSProject.Application") oActiveApp.FileSave() oActiveA

我注意到,当发出FileSave,然后紧接着发出filesavas时,会导致MS Project挂起而没有任何错误。违规代码是:

    Public Sub CleanXML(file As String)

        Dim oActiveApp As MSProject.Application = GetObject(, "MSProject.Application")

        oActiveApp.FileSave()
        oActiveApp.FileSaveAs(Name:=file, FormatID:="MSProject.XML")

        Try
            Dim xmlDoc As XElement = XElement.Load(file)

            Dim junk =
            From jk In xmlDoc.Elements
            Where jk.Name.LocalName = "Tasks"
            Select jk

            Dim children =
            From ch In junk.Elements
            Where ch.Descendants.ElementAt(3).Name.LocalName <> "Name"
            Select ch
            children.Remove

            xmlDoc.Save(file)

        Catch ex As System.Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub
publicsubcleanXML(文件为字符串)
Dim oActiveApp作为MSProject.Application=GetObject(,“MSProject.Application”)
oActiveApp.FileSave()文件
oActiveApp.FileSaveAs(名称:=文件,格式ID:=“MSProject.XML”)
尝试
Dim xmlDoc As XElement=XElement.Load(文件)
暗淡的垃圾=
来自xmlDoc.Elements中的jk
其中jk.Name.LocalName=“Tasks”
选择jk
弱智儿童=
来自中国的垃圾元素
其中ch.degenders.ElementAt(3).Name.LocalName“Name”
选择ch
孩子们,移开
xmlDoc.Save(文件)
捕获ex作为系统异常
MessageBox.Show(例如Message,“Error”,MessageBoxButtons.OK,MessageBoxIcon.Error)
结束尝试
端接头
但在现实中,它永远不会完成执行FileSaveAs。我注意到,如果先调用FileSaveAs,然后调用FileSave,不会导致相同的问题

打开的项目文件位于远程服务器上(平均连接速度为400Kbps),XML保存在本地机器上。如果项目文件也是本地文件,则不会发生这种情况

知道是什么导致了这个问题吗