Ciao a tutti,
come posso modificare il seguente codice per poter sapere le dimensioni dei PNG?

codice:
dim Larghezza, Altezza, Tipo
FileImmagine=Server.MapPath("public/" & rstour2("fotoprincipale"))
dim OggettoImmagine, OggettoFileSystem
Set OggettoFileSystem = CreateObject("Scripting.FileSystemObject")
set OggettoImmagine = loadpicture(FileImmagine)
Larghezza= round(OggettoImmagine.width / 26.4583)
Altezza= round(OggettoImmagine.height / 26.4583)
valorecontrollo = ((altezza * 100) / larghezza)
Il loadpicture non funziona con i PNG.
Posso modificare il codice o inserirne uno riservato solo ai PNG?

Fatemi sapere.
Grazie mille.