Grazie per la risposta, MdE2005.
Quindi, da come dici, come ho fatto per i files doc
Basta solo prolungare la lista nel Case:codice:Case "doc" Ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & NomeFile) Exit Sub
Case "doc", "gif", "jpg", "png", ecc
Ci provo e faccio sapere
Grazie intanto![]()