ho un problema quando da una mia applicazione chiamo un mio servizio web questo non esegue il codice da me passato, più precisamente eseguo un'operazione che và a buon fine (creo un file pdf e lo invio come da richiesta), ma quando gli chiedo di eliminare (sul server) il file creato questo non viene eliminato??
provo anche con:codice:If IO.File.Exists("C:\W\Pr\" & DropDownList2.SelectedValue & "\" & GridView1.SelectedRow.Cells(2).Text & ".jpg") Then Dim documento As Document = New Document(iTextSharp.text.PageSize.A4, 1, 0, 0, 0) PdfWriter.GetInstance(documento, New IO.FileStream("C:\W\Pr\" & DropDownList2.SelectedValue & "\" & GridView1.SelectedRow.Cells(2).Text & ".pdf", IO.FileMode.Create)) documento.AddTitle("Protocollo") documento.AddAuthor("io") documento.AddCreator("Data Protocollo") documento.AddSubject("File di protocollo") documento.AddProducer() documento.Open() Dim img As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(Me.Server.MapPath("~/Pr/" & DropDownList2.SelectedValue & "/" & GridView1.SelectedRow.Cells(2).Text & ".jpg")) img.ScalePercent(48) documento.Add(img) For i As Integer = 1 To 20 If IO.File.Exists(Me.Server.MapPath("~/Pr/" & DropDownList2.SelectedValue & "/" & GridView1.SelectedRow.Cells(2).Text & "_" & i & ".jpg")) Then img = iTextSharp.text.Image.GetInstance(Me.Server.MapPath("~/Pr/" & DropDownList2.SelectedValue & "/" & GridView1.SelectedRow.Cells(2).Text & "_" & i & ".jpg")) img.ScalePercent(48) documento.Add(img) End If Next documento.Close() Response.Expires = -1 Dim strPath As String strPath = "C:\W\Pr\" & DropDownList2.SelectedValue & "\" & GridView1.SelectedRow.Cells(2).Text & ".pdf" Dim File = New IO.FileInfo(strPath) If File.Exists Then Response.Clear() Response.AddHeader("Content-Disposition", "attachment; filename=""" & "Protocollo " & File.Name & """") Response.AddHeader("Content-Length", File.Length.ToString()) Response.ContentType = "application/octet-stream" Response.TransmitFile(strPath) Response.End() Else Response.Write("File non trovato.") End If End If IO.File.Delete("C:\W\Pr\" & DropDownList2.SelectedValue & "\" & GridView1.SelectedRow.Cells(2).Text & ".pdf")
ma non elimina.codice:IO.File.Delete(Me.Server.MapPath("~/Pr/" & DropDownList2.SelectedValue & "/" & GridView1.SelectedRow.Cells(2).Text & ".pdf"))

Rispondi quotando