ウイルスバスタ２００９でバックアップやメール送信がエラーになる。

アプリケーションのコンポーネントで、ハンドルされていない例外が発生しました。

［続行］をクリックすると、アプリケーションはこのエラーを無視し、続行しようとします。

［終了］をクリックすると、アプリケーションは直ちに終了します。



パス 'C:\Program Files\Field名\File名’の一部が見つかりませんでした

        System.IO.File.Copy(Data1_File, Data2_File, True)

        MessageBox.Show("正常にコピーしました。")

    '--Data_File（圧縮元ファイルのパス）、gzipFile（圧縮ファイルのパス）

    '--圧縮ファイルのFileStream作成

    Dim compFileStrm As New System.IO.FileStream(gzipFile, _

             System.IO.FileMode.Create) 

    '--圧縮モードのGZipStreamを作成

    Dim gzipStrm As New System.IO.Compression.GZipStream( _

            compFileStrm, System.IO.Compression.CompressionMode.Compress) 

     '--圧縮ファイルを開き少しずつbufferに読込

    Dim inFileStrm As New System.IO.FileStream( _

            Data_File, System.IO.FileMode.Open, System.IO.FileAccess.Read) 

    Dim buffer(1024) As Byte

    While True

        Dim readSize As Integer = inFileStrm.Read(buffer, 0, buffer.Length) 

        If readSize = 0 Then '------最後まで読み込んだらループを抜ける

            Exit While

        End If

        gzipStrm.Write(buffer, 0, readSize) '----データを圧縮して書き込む

    End While

    inFileStrm.Close() '--閉じる

    gzipStrm.Close()

    MessageBox.Show("正常に圧縮ファイルが作成されました。")

    Dim msg As New System.Net.Mail.MailMessage() '-MailMessageの作成

    msg.From = New System.Net.Mail.MailAddress(Maill送信) '----送信者

    msg.To.Add(New System.Net.Mail.MailAddress(Maill送信)) '-----宛先

    msg.Subject = "自動メール送信のテスト" '--------------------件名

    msg.Body = "自動メール送信のテストの本文" _

             + vbCrLf + vbCrLf + "ただいま自動メール送信のテスト中です。"

    Dim sc As New System.Net.Mail.SmtpClient()

    sc.Host = SMTP送信 '----------------- SMTPサーバーを指定する

    sc.Send(msg) '----------------------------メッセージを送信する

    msg.Dispose() '---------------------------------------後始末

    MessageBox.Show("テストメールを送信しました。")

    ※別記のエラーメッセージ：上記のエラーメッセージの最終行が「メール

        を送信できませんでした」とちがっている。