jeanette
09 de Septiembre del 2002

resulta que tengo una funcion para abrir carpetas , parecido , como cuando uno usa en comondialog . pero necesito que en un listbox(por que no puedo usar el filelistbox) me muestre los archivos que contenga como puedo hacerlo , resulta que tengo que hacerlo en el editor de visual que hay en excel en donde no existen drivelistbox o dirlistbox.
eso es todo gracias

Eduardo
09 de Septiembre del 2002

Dim loFS As Object
Dim f As Object
Dim fc As Object
Dim f1 As Object
Set loFS = CreateObject("Scripting.FileSystemObject")
'poner en vez de c: el directorio en donde estes
Set f = loFS.GetFolder("c:")
Set fc = f.Files
For Each f1 In fc
'debes poner un listbox en el formulario llamado list1
List1.AddItem f1.Name
Next