Få dette script til at tage sub-dirs med, samt at sætte et 0

Glemte lige det script

ssFDESKTOP = &H0 
ssFFLAGS  = &H1               
ssFTEXT    = "Omdøb filer i folder"

sSelectedPath = SelectFolder (ssFDESKTOP, ssFTEXT, ssFFLAGS)
If Len(sSelectedPath)=0 Then
    Wscript.quit
Else
    set fso=createobject("scripting.filesystemobject")
    thisfolder=sSelectedPath

i = inputbox("Første fil skal hedde")
if not isnumeric(i) then
    msgbox("Du skal indtaste et tal !!")
    Wscript.quit
end if

        for each f in fso.getfolder(thisfolder).files
            f.name = i & ".jpg"
            i = i + 1

        next

end if

Function SelectFolder(ssFROOT, ssFASK, ssFFLAGS)
  Set oSHA = CreateObject("Shell.Application")
  Set oSF = oSHA.BrowseForFolder(0,ssFASK,ssFFLAGS,ssFROOT)
  If Instr(TypeName(oSF),"Folder")<> 1 Then Exit Function
  For Each oItem in oSF.ParentFolder.Items
    If oItem.Name = oSF.title Then
      SelectFolder = oItem.path
      Exit Function
    End If
Next
SelectFolder = oSF.title
End Function

Se en gang på denne kode:

Set fso = createObject("Scripting.FileSystemObject")
Set root = fso.GetFolder(path)

traverseFolders(root)

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

Function DoSomethingWithFiles(root)
    For Each file in root.Files
        WScript.Echo file.path
    Next   
End Function

//>Rune

Nu er jeg ikke så god til det der, skal den sættes sammen med den anden?

Sådan her udskriver du dine Sub-Dirs:

Set fso = createObject("Scripting.FileSystemObject")
Set root = fso.GetFolder("c:/mappenavn1/mappenavn2)
    For Each file in root.Files
        WScript.Echo file.path
    Next   

//>Rune

Det var gerne meningen, at når jeg fx vælger dir et, så tager den automatisk alle subdirs med

virker ikke