Viroslash
31 de Enero del 2004

alguien sabe como mostrar el contenido de un carpeta en un textbox o un listbox? gracias

PALOMO
31 de Enero del 2004

esto te devuelbe el contenido en una matriz de un directorio que pases como parametro. Podes ponerlo en un modulo estandard

Public Function DameDir(ByVal UnaCarpeta As String) As String()
Dim filename As String
Dim MiMatriz() As String
If Right$(UnaCarpeta, 1) <> "" Then
UnaCarpeta = UnaCarpeta & ""
End If

filename = Dir$(OldDir & "*.*")
Do While filename <> ""
On Error Resume Next
filename = Dir$
ReDim Preserve MiMatriz(I)
MiMatriz(I) = filename
DoEvents
I = I + 1
Loop
DameDir = MiMatriz
End Function

--------------------
Para usarlo desde tu form es muy sensillo:

Private Sub Form_Load()
Dim eme() As String, I As Integer
eme = DameDir("C:")
For I = 0 To UBound(eme)
Debug.Print eme(I)
Next I
End Sub

palomo
31 de Enero del 2004

Fe de Erratas:
-----------
Me paso por no usar Option Explicit, ahora te mando la funcion corregida:

Public Function DameDir(ByVal UnaCarpeta As String) As String()
Dim filename As String, i As Integer
Dim MiMatriz() As String
If Right$(UnaCarpeta, 1) <> "" Then
UnaCarpeta = UnaCarpeta & ""
End If

filename = Dir$(UnaCarpeta & "*.*")
Do While filename <> ""
On Error Resume Next
filename = Dir$
ReDim Preserve MiMatriz(i)
MiMatriz(i) = filename
DoEvents
i = i + 1
Loop
DameDir = MiMatriz
End Function