Comprobar un icono o más existentes dentro de la carpeta en vb6

[AnaCarolina28]

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.

[rapbyone]

así lo haría yo:

Código (vb) [Seleccionar] Expandir


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



[AnaCarolina28]

y si hay mas de 1 icono como lo haria?

[AnaCarolina28]

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