🚀 go-pugleaf

Sony wrote:
> Ya.... ya ....
> Yo programo en Visual Basic, y ya se que haciendo un programita
> lo conseguiria.... pero tengo que perder un monton de tiempo para
> conseguir algo tan simple como un DIR......
> Por eso preguntaba si habia algun programita o alguna utilidad que
> lo hiciera.....
> Gracias.
> Saludos.

�Pues vaya! Si es as�, a m� todav�a no me queda claro en que contexto 
quieres usarlo, ni que lenguaje vas a usar. (�Eres una inc�gnita! ;-) )

Si es VisualBasic pues supongo que no ser� muy dif�cil (yo no programo 
todav�a ;-) con VB).


Si quieres una utilidad, pues DIR es una, y lo siguiente tambi�n es una 
"utilidad" en Visual Basic Script que lo hace:

(Ponlo en un fichero con extensi�n VBS y ejec�talo)

MsgBox "Ficheros:" & chr(13) & ShowFileList("C:\Archivos de Programa")
MsgBox "Directorios: " & chr(13) & _
    ShowFolderList("C:\Archivos de Programa")

Function ShowFileList(folderspec)
    Dim fso, f, f1, fc, s
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 in fc
       s = s & f1.name
       s = s & chr(13)
    Next
    ShowFileList = s
End Function

Function ShowFolderList(folderspec)
    Dim fso, f, f1, s, sf
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(folderspec)
    Set sf = f.SubFolders
    For Each f1 in sf
       s = s & f1.name
       s = s & chr(13)
    Next
    ShowFolderList = s
End Function