0 
 Sub Main()
            Try
                Dim output, filename1, filename2, filename3, date1, date2 As String

                'today's final
                output += "Report Dates: " & date1 & " and " & date2
                filename1 = "filename1.doc"
                SaveToFile(output, filename1)


                'today's daily
                output = "Report Dates: " & date1 & " and " & date2
                filename2 = "filename2.doc"
                SaveToFile(output, filename2)

                'yesterday's final
                output = "Report Dates: " & date1 & " and " & date2
                filename3 = "filename3.doc"
                SaveToFile(output, filename3)

    'email files here
    SendEmail(to, body,date1);

                'detele temp files
                DeleteFile(filename1)
                DeleteFile(filename2)
                DeleteFile(filename3)
            Catch e As Exception
                cEmail.SendErrorEmail("me@hme.com", e.Message)
            End Try

    End Sub

Sub SaveToFile(ByVal text As String, ByVal fileName As String)
        Dim path As String = "c:\temp\" & fileName
        Try
            If File.Exists(path) = True Then
                File.Delete(path)
            End If

            ' Create a file to write to.
            Dim sw As StreamWriter = File.CreateText(path)
            sw.WriteLine(text)
            sw.Flush()
            sw.Close()

            ' Open the file to read from.
            Dim sr As StreamReader = File.OpenText(path)
            Do While sr.Peek() >= 0
                Console.WriteLine(sr.ReadLine())
            Loop
            sr.Close()
        Catch e As Exception
            message = "in SaveToFile  " & e.Message
            cEmail.SendErrorEmail("me@hme.com", message)
        End Try
    End Sub



Sub DeleteFile(ByVal fileName As String)
        Dim path As String = "c:\temp\" & fileName
        Try

            If File.Exists(path) = True Then
                File.Delete(path)
            End If

        Catch e As Exception
            message = "in DeleteFile  " & e.Message
            cEmail.SendErrorEmail("me@hme.com", message)
        End Try
    End Sub

次のエラーが発生します：

DeleteFile内別のプロセスによって使用されているため、プロセスはファイル'c：\ temp\filename2.doc'にアクセスできません。

ファイルを削除する前にプロセスを解放する必要がありますか？私は何が欠けていますか？

編集：これがファイルを送信する私の「メール送信」機能です

 Public Sub SendEmail(ByVal msgTo As String, ByVal msgBody As String, ByVal date1 As String)


        Dim mail As New MailMessage()
        Dim objSMTP As New SmtpClient()
        Dim filename As String

        ''''''''''''''''''''''''''''''''''''''


        Try
            mail.To.Add(msgTo)
            mail.Bcc.Add("me@hme.com")
            mail.Priority = MailPriority.Normal
            mail.IsBodyHtml = True
            mail.Subject = "subject"
            mail.Body = msgBody


            filename = "filename1.doc"
            Dim DOERecords As New Net.Mail.Attachment("C:\temp\" & filename) 'create the attachment
            filename = "filename2.doc"
            Dim FOERecords As New Net.Mail.Attachment("C:\temp\" & filename) 'create the attachment
            filename = "filename3.doc"
            Dim FOERecords2 As New Net.Mail.Attachment("C:\temp\" & filename) 'create the attachment


            mail.Attachments.Add(DOERecords) 'add the attachment
            mail.Attachments.Add(FOERecords) 'add the attachment
            mail.Attachments.Add(FOERecords2) 'add the attachment

            objSMTP.Send(mail)

        Catch ex As Exception
            Throw ex
        End Try
    End Sub
4

2 に答える 2

2

すべてのAttachmentオブジェクトを破棄する必要があります。そうしないと、開いているファイルハンドルを残してしまいます。MailMessageでDisposeを呼び出すだけです。これにより、添付ファイルの破棄がトリガーされます。

objSMTP.Send(mail) 
mail.Dispose()

Usingメールオブジェクトをステートメントでカプセル化すると、これを回避できます。

Using(mail as MailMessage = New MailMessage())
....
End Using
于 2012-05-15T13:22:50.673 に答える
1

私はあなたがファイルを使用する場所の周りにいくつかの使用法を追加します：

        Using sw As StreamWriter = File.CreateText(path)
          sw.WriteLine(text)
          sw.Flush()
          sw.Close()
        End Using

          ' Open the file to read from.             
        Using sr As StreamReader = File.OpenText(path)
          Do While sr.Peek() >= 0
            Console.WriteLine(sr.ReadLine())
          Loop
          sr.Close() 
        End Using

使用は、ストリームオブジェクトによって実装されたIDisposableインターフェイスを処理します。ファイルへのロックの割り当てが解除されます。

メールオブジェクトは同じパターンを実装する必要があります。

        Using mail As New MailMessage()  
          ....
          End Try 
        End Using
于 2012-05-15T13:21:18.727 に答える