Upload con controllo su content type, dimensione e larghezza/altezza

[Daniele80]

ciao,

ho preso questo script da www.aspitalia.com

'controllo la dimensione del file 
If inputFile.PostedFile.ContentLength>MaxLength Then 
   lblmessage.text = "Il file è di dimensioni troppo elevate. Max " & MaxLength/1024 & "KB" 
   'controllo il tipo di file caricato in bytes 
ElseIf Not inputFile.PostedFile.ContentType.StartsWith("image") Then 
   lblmessage.text = "Il file non è valido. Dev'essere un'immagine" 
Else 
  'effettuo un controllo sulle dimensioni dell'immagine 
  Dim img as System.Drawing.Image=System.Drawing.Image.FromStream(inputFile.PostedFile.InputStream) 
  If img.Width>MaxWidth OrElse img.Height>MaxHeight Then 
	lblmessage.text = "L'immagine ha dimensioni superiori a quelle consentite. Max " & MaxWidth & "x" & MaxHeight 
  Else 
	'se è tutto ok, salvo l'immagine 
	inputFile.PostedFile.SaveAs( Server.MapPath(FileType+nome file) ) 
	'lblmessage.text = "FileUploadato su " & inputNome.Value & "[/b]!" 
	try
           objCmd.ExecuteNonQuery()
	   lblmessage.text="Inserito"
	   response.redirect("lista.aspx")
	catch ex as exception
	   lblmessage.text="ERRORE"
	end try
  End If 
  img.Dispose() 
End If

come faccio a mettere il nome del file?
inputFile.PostedFile.SaveAs( Server.MapPath(FileType+nome file) )

[Daniele80]

ho trovato cosa metterci:
inputFile.PostedFile.SaveAs( Server.MapPath(FileType+inputFile.PostedFile.FileN ame) )

l'unico problema è che mi riporta tutto il path di dove risiede l'immagine perciò: c:\...\nomeIMG.jpg

a me servirebbe prendere solo il nome del file e non tutto il percorso.

che devo fare? qualche operazione sulla stringa?

[zampa28]

NomeFile = System.IO.Path.GetFileName(Percorso)

[Daniele80]

ho risolto, ormai quello script me lo mangio.


senza che apro un'altro post, io devo cancellare un file come faccio?

dim f as New File
f.delete(Server.MapPath(filename))


ho errore sulla dichiarazione.

[zampa28]

Dim MyFile

MyFile.DeleteFile(Percorso)


Oppure:

Set MyFile = FileObject.GetFile(Percorso)
MyFile.Delete

[Daniele80]

ho inserito il namespace e poi ho fatto cosi:
FILE.delete(Server.MapPath(Image1.ImageUrl))


e va che è una meraviglia.