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??
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")
provo anche con:
codice:
IO.File.Delete(Me.Server.MapPath("~/Pr/" & DropDownList2.SelectedValue & "/" & GridView1.SelectedRow.Cells(2).Text & ".pdf"))
ma non elimina.