list alle dirs

Du går da bare til command promten og helt ud i roden og skriver:
"dir/s > c:\list.txt"

Så ligger der en liste i c:\ som hedder list... den kan du bare åbne med notepad'en bagefter!!!!

ja, mig bekendt hedder denne gruppe vbscript??? right????

strFilSti "c:\test\"
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objMappe = objFSO.GetFolder(strFilSti)
       
        For Each Item in objMappe.Files
            MsgBox(objMappe.Name)
        Next
       
//>Rune

Se på http://www.eksperten.dk/spm/413095.

Erstat:

Function traverseFolders(root)
    searchFiles(root)
    For Each folder in root.SubFolders
        traverseFolders(folder)
    Next
End Function

med

Function traverseFolders(root)
    If regEx.Test(folder.Name) Then
      WScript.Echo folder.Path
    End If
    searchFiles(root)
    For Each folder in root.SubFolders
        traverseFolders(folder)
    Next
End Function

Kør scriptet med f.eks.

<cscript find.vbs c:\test "^\d+$">

For sidste halvdel, kør scriptet med

<cscript find.vbs c:\test "\.vvv$">

Du kan selvfølgelig også sætte path og pattern variablene direkte i scriptet!

Hvis du kun vil have dirs, skal du nok udkommentere kaldet til searchFiles.

Du kan jo evt. udbygge scriptet, så det tager diverse flags, som bestemmer dets opførsel!