vbs FU

Hi,

in meienr Vermessenheit habe ich einem Freund versporchen ein einfaches Script in vbs zu tackern, das rekursiv aus Unterordnern eines Ordners Dateien kopiert.

Ich haenge nun an der Frage wie ich eine Schleife ueber Unterordner eines zum Scriptpfad relativen Pfades laufen lassen kann, spaeter mit Radiolist.

Ich habe keine Ahnung von VBS, bzw. habe vor gefuehlten Dekaden mal damit rumgespielt.

Akueller Status

Code:

---

Set wshshell = WScript.CreateObject ("wscript.shell")
wshshell.run "c:\Windows\system32\cmd.exe", 6, True
set wshshell = nothing


Dim filesys 'Filesystemobjekt'
Dim FolderList 'Ordnerliste'


set filesys = CreateObject ("Scripting.FileSystemObject")
set ModDir =  filesys.GetFolder('./mods')

for each UNTERORDNER in ModDir do (

wscript.Echo " & UNTERORDNER & "  ### BlaebFU

)

---

Machen soll das ungefaehr dieses

Code:

---

#!/bin/bash
WORK=$(pwd)
TARGET=$(/home/user/project/BAR)

for i in $WORK/foo; do
  cp -r i/*  $TARGET
done

---