X-Received: by 10.129.119.7 with SMTP id s7mr2186900ywc.55.1497335742019; Mon, 12 Jun 2017 23:35:42 -0700 (PDT) X-Received: by 10.157.14.138 with SMTP id 10mr94966otj.4.1497335741936; Mon, 12 Jun 2017 23:35:41 -0700 (PDT) Path: csiph.com!feeder.erje.net!2.us.feeder.erje.net!feeder.usenetexpress.com!feeder1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!s24no1405113qte.0!news-out.google.com!k7ni6468itk.0!nntp.google.com!185no523124itv.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: it.comp.lang.visual-basic Date: Mon, 12 Jun 2017 23:35:40 -0700 (PDT) In-Reply-To: <09d5cb8b-40ac-417b-b097-cd725e145ce3@googlegroups.com> Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=213.215.169.20; posting-account=yvxj_woAAABxrxq8XihQzP-tWUWpycQc NNTP-Posting-Host: 213.215.169.20 References: <09d5cb8b-40ac-417b-b097-cd725e145ce3@googlegroups.com> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <9d8a2450-25ea-44cd-83d0-3495bd30d47a@googlegroups.com> Subject: Re: Eliminazione file From: Marco75 Injection-Date: Tue, 13 Jun 2017 06:35:41 +0000 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Lines: 73 Xref: csiph.com it.comp.lang.visual-basic:19057 Il giorno luned=C3=AC 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 f= ile =C3=A8 utilizzato in un processo e non pu=C3=B2 essere eliminato... >=20 > il nome e percorso file =C3=A8 in txtMemoSelezione.Text > prima di eseguire il kill svuoto le listbox che lo mostrano e svuoto la p= icturebox che ne fa vedere l'anteprima >=20 > di seguito il codice di invio mail=20 >=20 > Private Sub btnInvioMail_Click(ByVal sender As System.Object, ByVal e As = System.EventArgs) Handles btnInvioMail.Click >=20 > Dim outlookMessage As Outlook.MailItem > Dim appOutlook As New Outlook.Application >=20 > Try >=20 > outlookMessage =3D appOutlook.CreateItem(Outlook.OlItemType.o= lMailItem) >=20 > Dim recipients As Outlook.Recipients =3D outlookMessage.Recip= ients >=20 > recipients.Add("xx.xx@xxx.com") 'Mail del destinatario > outlookMessage.Subject =3D "Oggetto" > outlookMessage.Body =3D "Testo" > outlookMessage.Attachments.Add(txtMemoSelezione.Text) > outlookMessage.BodyFormat =3D Outlook.OlBodyFormat.olFormatHT= ML > outlookMessage.Send() >=20 > MessageBox.Show("La segnalazione =C3=A8 stata inviata corrett= amente...", "Invio mail", MessageBoxButtons.OK, MessageBoxIcon.Information) >=20 > 'Sposto il file nella cartella "Visti" > Dim sFile As String =3D txtMemoSelezione.Text > Dim dFile As String =3D "Percorso\" & txtMemoSelezione2.Text >=20 > FileCopy(sFile, dFile) >=20 > 'Azzero tutto ed elimino il file dalla cartella "Da vedere" > lbNuove.Items.Clear() 'Listbox con elenco file=20 > lbVecchie.Items.Clear() 'Listbox con elenco file=20 > lbNuove.Visible =3D False > lbVecchie.Visible =3D False > btnInvioMail.Visible =3D False > pbRichiestaSelezionata.Image =3D Nothing > lblAnteprima.Text =3D "" >=20 > outlookMessage =3D Nothing > appOutlook =3D Nothing >=20 > Kill(txtMemoSelezione.Text) > txtMemoSelezione.Text =3D "" > txtMemoSelezione2.Text =3D "" >=20 > Catch ex As Exception > MessageBox.Show("Mail non inviata!" & vbNewLine & vbNewLine &= ex.Message, "Invio mail", MessageBoxButtons.OK, MessageBoxIcon.Exclamation= ) > Finally > outlookMessage =3D Nothing > appOutlook =3D Nothing > End Try >=20 > End Sub Ho provato anche con Move e ho fatto l'operazione di spostamento prima di i= nviare la mail ma nulla da fare!=20 Come memorizzo il file senza impegnare il processo?