LISTAR ICONES DA AREA DE TRABALHO NUM LISTVIEW

CAPITAO.GARCIA 19/09/2006 14:58:01
#172431
Alguem sabe como faze?
Obrigado!
CAIO.IN.DUST 19/09/2006 15:13:53
#172435 

Private Sub Form_Load()
    Dim icon As Variant


    icon = Dir("C:\Documents and Settings\NOME USUARIO AQUI\Desktop\*.*")
    
    While icon <> ""
        List1.AddItem icon
        icon = Dir
    Wend

End Sub


Fera... Onde esta o nome do usuario (NOME USUARIO AQUI) voce coloca por exemplo "All Users", "Administrador" ou no meu caso "Caio"
CAIO.IN.DUST 19/09/2006 15:45:34
#172445
Clique Aqui
Fera de uma olha agora acho que e isso que voce quer...
CAPITAO.GARCIA 19/09/2006 15:53:10
#172447
Eu precisaria com os ícones dos programas...
=/ se nao for pedir mto!
Tópico encerrado , respostas não são mais permitidas
Voltar