Efter upload skal bmp fil slettes!

Hvordan sletter jeg en fil der er uploadet?

Det skal kun være hvis fil typen er bmp altså:

If File.ContentType = "image/bmp" Then
-- Kode til at slette filen --
End If

Hele koden ser således ud:

Set Upload = Server.CreateObject("Persits.Upload")
    Upload.ProgressID = Request.QueryString("PID")
    Upload.OverwriteFiles = False
Count = Upload.SaveVirtual("/iArrangementsudvalg/Pics/")
   
For Each File in Upload.Files

Set Image = Server.CreateObject("AspImage.Image")

navn = File.FileName
billede = split(navn, ".")

Image.LoadImage(server.mappath("Pics/" & File.FileName & ""))

  Image.ImageFormat = 1
  Image.JPEGQuality = 100
  Image.FileName = (Server.MapPath("Pics/" & billede(0) & ".jpg"))

width = File.ImageWidth
intXSize = File.ImageWidth
intYSize = File.ImageHeight
 
  If width > 563 Then
    intXSize = 563
    intYSize = (intXSize / width) * File.ImageHeight
    Image.ResizeR intXSize, intYSize
    Image.FileName = server.mappath("Pics/" & File.FileName & "")
    Image.SaveImage
  else
    Image.SaveImage
  End If
 
Set Image = nothing

If File.ContentType = "image/bmp" Then
-- HER SKAL FILEN SLETTES --
End If