Listar sólo los Directorios

Muchas gracias Francisco.

El archivo txt creo que sí lo podría importar a Excel con alguna macro. Eso
sí lo podría hacer. Pero la línea de código que me has dejado no sé cómo debe
ir dentro del código completo. Se me da mal VBA. Si me dejas algún ejemplo te
lo agradecería.


Yo tengo la Carpeta C:\Prueba\ y se trataba de obtener todas las
subcarpetas que estén contenidas.

Saludos
javier



"Francisco MTY" escribió:

ejecuta esta instruccion en la linea de comando:

c:\dir /s /w *. /b > test.txt <-- si lo quieres en un archivo

ese archivo lo puedes abrir y editalo en excel con la importacion o si
quieres una macro graba los pasos que realizas desde la apertura del mismo y
la importacion y orbserva el codigo :)

Saludos

ejecuta esta instruccion en la linea de comando:

c:\dir /s /w *. /b > test.txt <-- si lo quieres en un archivo

ese archivo lo puedes abrir y editalo en excel con la importacion o si
quieres una macro graba los pasos que realizas desde la apertura del mismo y
la importacion y orbserva el codigo :)

Saludos

lo podrías hacer, siguiendo el ejemplo de mi "tocallo" de la siguiente forma
(es un ejemplo bien burdo y poco optimo, pero funciona):

Sub directorio()
ruta = "c:\prueba"
x = Shell("cmd /c dir /s /w " & ruta & "\*. /b > c:\test.txt")
Workbooks.OpenText "c:\test.txt"
Workbooks("test.txt").Sheets(1).Columns(1).Copy
ThisWorkbook.Sheets(1).Activate
ThisWorkbook.Sheets(1).Range("a1").Select
ActiveSheet.Paste
Application.DisplayAlerts = False
Workbooks("test.txt").Close False
Application.DisplayAlerts = True
End Sub

sin embargo aki te dejo una ayuda (msdn), en la cual explican alguns
ejemplos usando la función Dir, filesearch, que podrían ayudar...

Saludos,
Francisco.

"javier" escribió en el mensaje
news:

Muchas gracias Francisco.

El archivo txt creo que sí lo podría importar a Excel con alguna macro.
Eso
sí lo podría hacer. Pero la línea de código que me has dejado no sé cómo
debe
ir dentro del código completo. Se me da mal VBA. Si me dejas algún ejemplo
te
lo agradecería.


Yo tengo la Carpeta C:\Prueba\ y se trataba de obtener todas las
subcarpetas que estén contenidas.

Saludos
javier



"Francisco MTY" escribió:

ejecuta esta instruccion en la linea de comando:

c:\dir /s /w *. /b > test.txt <-- si lo quieres en un archivo

ese archivo lo puedes abrir y editalo en excel con la importacion o si
quieres una macro graba los pasos que realizas desde la apertura del
mismo y
la importacion y orbserva el codigo :)

Saludos

de la ayuda del msdn se puede modificar algo...

Sub TestGetFiles()
Dim dctDict As Scripting.Dictionary
Dim varItem As Variant
Dim strDirPath As String

strDirPath = "c:\prueba\"
Set dctDict = New Scripting.Dictionary
If GetFiles(strDirPath, dctDict, True) Then
fila = 1
For Each varItem In dctDict
Sheets(1).Cells(fila, 1).Value = varItem
fila = fila + 1
Next
End If
End Sub

Function GetFiles(strPath As String, dctDict As Scripting.Dictionary,
Optional blnRecursive As Boolean) As Boolean

Dim fsoSysObj As Scripting.FileSystemObject
Dim fdrFolder As Scripting.Folder
Dim fdrSubFolder As Scripting.Folder
Dim filFile As Scripting.File

Set fsoSysObj = New Scripting.FileSystemObject

On Error Resume Next
Set fdrFolder = fsoSysObj.GetFolder(strPath)
If Err <> 0 Then
GetFiles = False
GoTo GetFiles_End
End If
On Error GoTo 0

If blnRecursive Then
For Each fdrSubFolder In fdrFolder.SubFolders
dctDict.Add fdrSubFolder.Path, fdrSubFolder.Path
GetFiles fdrSubFolder.Path, dctDict, True
Next fdrSubFolder
End If

GetFiles = True

GetFiles_End:
Exit Function

End Function

sin embargo, para que funcione, debes agregar a tus referencias: Microsoft
Scripting Runtime

Saludos,
Francisco.

"Francisco M" escribió en el mensaje
news:usX2$

lo podrías hacer, siguiendo el ejemplo de mi "tocallo" de la siguiente
forma (es un ejemplo bien burdo y poco optimo, pero funciona):

Sub directorio()
ruta = "c:\prueba"
x = Shell("cmd /c dir /s /w " & ruta & "\*. /b > c:\test.txt")
Workbooks.OpenText "c:\test.txt"
Workbooks("test.txt").Sheets(1).Columns(1).Copy
ThisWorkbook.Sheets(1).Activate
ThisWorkbook.Sheets(1).Range("a1").Select
ActiveSheet.Paste
Application.DisplayAlerts = False
Workbooks("test.txt").Close False
Application.DisplayAlerts = True
End Sub

sin embargo aki te dejo una ayuda (msdn), en la cual explican alguns
ejemplos usando la función Dir, filesearch, que podrían ayudar...

Saludos,
Francisco.

"javier" escribió en el mensaje
news:

Muchas gracias Francisco.

El archivo txt creo que sí lo podría importar a Excel con alguna macro.
Eso
sí lo podría hacer. Pero la línea de código que me has dejado no sé cómo
debe
ir dentro del código completo. Se me da mal VBA. Si me dejas algún
ejemplo te
lo agradecería.


Yo tengo la Carpeta C:\Prueba\ y se trataba de obtener todas las
subcarpetas que estén contenidas.

Saludos
javier



"Francisco MTY" escribió:

ejecuta esta instruccion en la linea de comando:

c:\dir /s /w *. /b > test.txt <-- si lo quieres en un archivo

ese archivo lo puedes abrir y editalo en excel con la importacion o si
quieres una macro graba los pasos que realizas desde la apertura del
mismo y
la importacion y orbserva el codigo :)

Saludos

Hola Francisco,

En principio el procedimiento corre bien, no me da erores, pero te comento:

x = Shell("cmd /c dir /s /w " & ruta & "\*. /b > c:\test.txt")

Workbooks.OpenText "c:\test.txt"

Luego copia la columna "A" de test (de excel) que está en blanco (sin datos)
Y la pega en el libro de Excel que estoy probando también en blanco.

es decir: funciona casi todo pero al final no consigo ningún dato.

Si sabes que puede faltar... ???

saludos, gracias.
javier




Sub directorio()
ruta = "c:\prueba"
x = Shell("cmd /c dir /s /w " & ruta & "\*. /b > c:\test.txt")
Workbooks.OpenText "c:\test.txt"
Workbooks("test.txt").Sheets(1).Columns(1).Copy
ThisWorkbook.Sheets(1).Activate
ThisWorkbook.Sheets(1).Range("a1").Select
ActiveSheet.Paste
Application.DisplayAlerts = False
Workbooks("test.txt").Close False
Application.DisplayAlerts = True
End Sub



-

"Francisco M" escribió:

lo podrías hacer, siguiendo el ejemplo de mi "tocallo" de la siguiente forma
(es un ejemplo bien burdo y poco optimo, pero funciona):

Sub directorio()
ruta = "c:\prueba"
x = Shell("cmd /c dir /s /w " & ruta & "\*. /b > c:\test.txt")
Workbooks.OpenText "c:\test.txt"
Workbooks("test.txt").Sheets(1).Columns(1).Copy
ThisWorkbook.Sheets(1).Activate
ThisWorkbook.Sheets(1).Range("a1").Select
ActiveSheet.Paste
Application.DisplayAlerts = False
Workbooks("test.txt").Close False
Application.DisplayAlerts = True
End Sub

sin embargo aki te dejo una ayuda (msdn), en la cual explican alguns
ejemplos usando la función Dir, filesearch, que podrían ayudar...

Saludos,
Francisco.

"javier" escribió en el mensaje
news:
> Muchas gracias Francisco.
>
> El archivo txt creo que sí lo podría importar a Excel con alguna macro.
> Eso
> sí lo podría hacer. Pero la línea de código que me has dejado no sé cómo
> debe
> ir dentro del código completo. Se me da mal VBA. Si me dejas algún ejemplo
> te
> lo agradecería.
>
>
> Yo tengo la Carpeta C:\Prueba\ y se trataba de obtener todas las
> subcarpetas que estén contenidas.
>
> Saludos
> javier
>
>
>
> "Francisco MTY" escribió:
>
>> ejecuta esta instruccion en la linea de comando:
>>
>> c:\dir /s /w *. /b > test.txt <-- si lo quieres en un archivo
>>
>> ese archivo lo puedes abrir y editalo en excel con la importacion o si
>> quieres una macro graba los pasos que realizas desde la apertura del
>> mismo y
>> la importacion y orbserva el codigo :)
>>
>> Saludos
>>
>>
>>
>>