>Avevo pensato di riempire una immagelist contentente tutte le
>icone possibili e, valutando l'estenzione del file, associare
>l'icona corretta.
>Questo però mi comporta un casino di lavoro.
>Chiedo a voi un metodo alternativo che dato in pasto il nome
>del file completo di estenzione, mi restituisca l'icona associata
>di winwows.
Ciao,
prima devi andare nel Registro a cercare il programma/eseguibile associato al tipo di file nel caso di un txt è notepad.exe. Successivamente usare questa istruzioni per avere in mano l'icona corrispondente (fra parentesi come parametro passi il percorso al programma che apre il tipo di file):
Dim ico as Icon =
Icon.ExtractAssociatedIcon("C:\WINDOWS\system32\notepad.exe")
Ciao
David De Giacomi | Microsoft MVP
http://blogs.dotnethell.it/david/