|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Preencher um ListBox ou ComboBox com conteúdo de uma pasta
|
 |
|
|
|
Postada em 26/12/2002 por Spidey
Option Explicit
Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Sub ListaArquivos(Componente As Control, Caminho As String)
Call SendMessageStr(Componente.hWnd, &H18D, &H10 Or &H20, Caminho)
End Sub
Private Sub Form_Load()
Call ListaArquivos(List1, "C:\*.*")
End Sub
|
|
|
|
|
