Сайт не выпустит файл, созданный с помощью openxml - PullRequest
Новая
       9

Сайт не выпустит файл, созданный с помощью openxml

0 голосов
/ 27 апреля 2018

Вот ситуация:

Сайт Asp.Net Web Forms, использующий Open XML для чтения (через поток) текстового документа (docx). Затем я вставляю некоторый текст в документ и затем записываю файл обратно в другое место. Затем он отправляется по электронной почте конечному пользователю. Все это прекрасно работает.

Проблема, с которой я сталкиваюсь, заключается в том, что я не могу создать новый файл, написанный сайтом. Я получаю следующую ошибку: «Процесс не может получить доступ к файлу (здесь имя файла), потому что он используется другим процессом»

Я подтвердил, что этот файл (или IIS) хранится в файле.

Вот код, который читает исходный файл и генерирует новый файл: 

    Private Function GetDocument(worddoc As String) As Integer
    Dim byteArray As Byte() = File.ReadAllBytes("\\WEB-DEV-1\HR_Documents\" & worddoc)
    Using Stream As New MemoryStream()
        Stream.Write(byteArray, 0, CInt(byteArray.Length))
        Try
            'Set Row & Cell variables
            Dim rowNum As Integer = 0
            Dim cellNum As Integer = 0
            'Set File Stream
            Using doc As WordprocessingDocument = WordprocessingDocument.Open(Stream, True)
                'Employee Name Insert
                'Find first table in document
                Dim tbl1 As Table = doc.MainDocumentPart.Document.Body.Elements(Of Table).First()
                'First Row in tbl
                Dim row As TableRow = tbl1.Elements(Of TableRow)().ElementAt(0)
                'Find first cell in row
                Dim cell As TableCell = row.Elements(Of TableCell)().ElementAt(0)
                'Insert selected Employee Name
                Dim p As Paragraph = cell.Elements(Of Paragraph)().First()
                Dim r As Run = p.Elements(Of Run)().First()
                Dim txt As Text = r.Elements(Of Text)().First()
                txt.Text = "Employee Name: " & ddlEmployeeList.SelectedItem.Text

                'Supervisor Name Insert
                'Check for form
                If ddlFormChoice.SelectedIndex <> 2 Then
                    'Reset row to supervisors row in table
                    row = tbl1.Elements(Of TableRow)().ElementAt(1)
                ElseIf ddlFormChoice.SelectedIndex = 2 Then
                    'Reset row to supervisors row in table
                    row = tbl1.Elements(Of TableRow)().ElementAt(2)
                End If
                If ddlFormChoice.SelectedIndex <> 2 Then
                    'Reset cell to supervisor cell in row
                    cell = row.Elements(Of TableCell)().ElementAt(1)
                ElseIf ddlFormChoice.SelectedIndex = 2 Then
                    'Reset cell to supervisor cell in row
                    cell = row.Elements(Of TableCell)().ElementAt(0)
                End If

                'Insert selected Employee Name
                p = cell.Elements(Of Paragraph)().First()
                r = p.Elements(Of Run)().First()
                txt = r.Elements(Of Text)().First()
                If ddlFormChoice.SelectedIndex <> 2 Then
                    txt.Text = "Supervisor: " & ddlSupervisorList.SelectedItem.Text
                ElseIf ddlFormChoice.SelectedIndex = 2 Then
                    txt.Text = "Manager/Supervisor: " & ddlSupervisorList.SelectedItem.Text
                End If
                doc.Close()
            End Using
            'Save File to temp location
            File.WriteAllBytes("\\WEB-DEV-1\HR_Documents\TempDocs\" & worddoc, Stream.ToArray())
            Stream.Close()
            Stream.Dispose()
            Return 1
        Catch ex As Exception
            Return Nothing
        End Try
    End Using
End Function

Я закрываю документ OpenXML, и поток также удаляет поток, но когда я пытаюсь удалить файл из основной подпрограммы, вызвавшей функцию, я получаю сообщение об ошибке, перечисленное выше.

Что мне не хватает ?? Я закрыл документ, поток и избавился от потока. Почему сайт все еще содержит файл?

Обратите внимание на строку кода, которая пытается удалить файл; 

File.Delete("\\Web-Dev-1\HR_Documents\TempDocs\" & fileAttach)

1 Ответ

0 голосов
/ 27 апреля 2018

Итак, большую часть дня я наконец-то выяснил, в чем проблема. После того, как документ был создан, сохранен и отправлен по электронной почте, он удерживался методом электронной почты. По какой-то причине я подумал, что когда метод заканчивает работу, он удаляет почтовое сообщение, но это не так.

Как только я добавил строку удаления, все работало нормально.

Только гуглил почти два дня. : |

...