Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #19057

Re: Eliminazione file

Show all headers | View raw

Il giorno lunedì 12 giugno 2017 12:09:25 UTC+2, Marco75 ha scritto:
> Ciao,
> nel mio programma sviluppato con visual studio 2010, prendo un file jpg e lo inoltro via mail.
> dopo l'invio dovrei eliminarlo ma ho un errore in quanto mi dice che il file è utilizzato in un processo e non può essere eliminato...
> 
> il nome e percorso file è in txtMemoSelezione.Text
> prima di eseguire il kill svuoto le listbox che lo mostrano e svuoto la picturebox che ne fa vedere l'anteprima
> 
> di seguito il codice di invio mail 
> 
> Private Sub btnInvioMail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInvioMail.Click
> 
>         Dim outlookMessage As Outlook.MailItem
>         Dim appOutlook As New Outlook.Application
> 
>         Try
> 
>             outlookMessage = appOutlook.CreateItem(Outlook.OlItemType.olMailItem)
> 
>             Dim recipients As Outlook.Recipients = outlookMessage.Recipients
> 
>             recipients.Add("xx.xx@xxx.com") 'Mail del destinatario
>             outlookMessage.Subject = "Oggetto"
>             outlookMessage.Body = "Testo"
>             outlookMessage.Attachments.Add(txtMemoSelezione.Text)
>             outlookMessage.BodyFormat = Outlook.OlBodyFormat.olFormatHTML
>             outlookMessage.Send()
> 
>             MessageBox.Show("La segnalazione è stata inviata correttamente...", "Invio mail", MessageBoxButtons.OK, MessageBoxIcon.Information)
> 
>             'Sposto il file nella cartella "Visti"
>             Dim sFile As String = txtMemoSelezione.Text
>             Dim dFile As String = "Percorso\" & txtMemoSelezione2.Text
> 
>             FileCopy(sFile, dFile)
> 
>             'Azzero tutto ed elimino il file dalla cartella "Da vedere"
>             lbNuove.Items.Clear()   'Listbox con elenco file 
>             lbVecchie.Items.Clear() 'Listbox con elenco file 
>             lbNuove.Visible = False
>             lbVecchie.Visible = False
>             btnInvioMail.Visible = False
>             pbRichiestaSelezionata.Image = Nothing
>             lblAnteprima.Text = ""
> 
>             outlookMessage = Nothing
>             appOutlook = Nothing
> 
>             Kill(txtMemoSelezione.Text)
>             txtMemoSelezione.Text = ""
>             txtMemoSelezione2.Text = ""
> 
>         Catch ex As Exception
>             MessageBox.Show("Mail non inviata!" & vbNewLine & vbNewLine & ex.Message, "Invio mail", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
>         Finally
>             outlookMessage = Nothing
>             appOutlook = Nothing
>         End Try
> 
>     End Sub

Ho provato anche con Move e ho fatto l'operazione di spostamento prima di inviare la mail ma nulla da fare! 
Come memorizzo il file senza impegnare il processo?

Back to it.comp.lang.visual-basic | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Eliminazione file Marco75 <marcoporzi75@gmail.com> - 2017-06-12 03:09 -0700
  Re: Eliminazione file Marco75 <marcoporzi75@gmail.com> - 2017-06-12 23:35 -0700
    Re: Eliminazione file Luca D <antaniserse@yahoo.it> - 2017-06-13 05:33 -0700
      Re: Eliminazione file Marco75 <marcoporzi75@gmail.com> - 2017-06-13 05:57 -0700
      Re: Eliminazione file Marco75 <marcoporzi75@gmail.com> - 2017-06-13 06:12 -0700

csiph-web