Foro de elhacker.net

hola me gustaría comprobar un icono existente dentro de la carpeta cualquiera valga pero que sea .ico y que muestre en una image o picture. Gracias.

así lo haría yo:

Private Sub Command1_Click()
If Len(Dir("C:\notelist.ico")) = 0 Then
 
Picture1.Picture = LoadPicture("C:\note.ico")
   Else
MsgBox "no existe el icono en la carpeta"
End If
End Sub
 
 

y si hay mas de 1 icono como lo haria?

y tambien que no se sabe que nombre de icono tiene. porque los hay en muchas carpetas