Jump to content

Hilfe bei einem Script


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Hallo Forum,

 

ich möchte ein script schreiben, mit dem ich in jedem Homeordener der Benutzer einen Ordner kopieren. Das heißt, Beispiel: in D:\Daten\homedirs\ liegen ca. 100 Unterordner (Home Laufwerke) in jedem von denen möchte ich per Script ein und den Selben Ordner kopieren. Nur weiß ich nicht wie das Script aussehen muß.

 

Ich habe eine Domäne und viele Homedirs von den Usern.

 

Gruß,

Martin

Link zu diesem Kommentar

prinzipiell geht das auch schnell mittels batch, xcopy und excel (Funktion verketten)

1) dir /B D:\Daten\homedirs\ > c:\temp\ordnernamen.txt

2) ordnernamen.txt nach excel importieren

3) in excel mit der Funktion verketten arbeiten und aus vier Spalten "xcopy c:\quelle D:\Daten\homedirs\" "ordnername (aus ordnernamen.txt)" " optionen nach Wunsch" "=verketten(a1;b1;c1)" das excel-file "basteln

4) einfach am markierten Eck anfassen und "nach unten ziehen" und schon hast du den batchinhalt in Spalte vier.

5) alles in eine *.cmd kopieren und dann ausführen.

 

5min Aufwand. Wer es schöner programmieren kann vor! ;-) Ich lerne gern dazu....

 

4077

Link zu diesem Kommentar

Hier ein vbs Script, welches die Aufgabe erledigt.

 

Const strQuelldrive="D:\"

Const strQuellFolder="SAP" 'Quellordner darf keine Unterordner enthalten! (Schleifenbildung!)

Const strDrive="D:\Daten\homedirs\"

Dim strPfad

Dim Subfolder

Set objFSO = CreateObject("Scripting.FileSystemObject")

set objFolder=objFSO.GetFolder(strQuelldrive & strQuellFolder)

ShowSubfolders objFSO.GetFolder(strDrive)

Set ObjFolder=Nothing

Set objFSO=Nothing

Wscript.Echo "Fertig"

 

Sub ShowSubFolders(Folder)

For Each Subfolder in Folder.SubFolders

If subfolder.name <> strQuellFolder Then

if not (objFSO.FolderExists(Subfolder.Path & "\" & strQuellFolder)) Then objFSO.CreateFolder(Subfolder.Path & "\" & strQuellFolder)

objFolder.Copy Subfolder.Path & "\" & strQuellFolder

End If

ShowSubFolders Subfolder

Next

End Sub

Link zu diesem Kommentar

So nun geht es auch mit Unterordnern

 

Const strDrive="D:\Daten\homedirs\"

Const strQuelldrive="D:\"

Const strQuellFolder="SAP"

Dim strPfad

Dim Subfolder

Set objFSO = CreateObject("Scripting.FileSystemObject")

set objFolder=objFSO.GetFolder(strQuelldrive & strQuellFolder)

ShowSubfolders objFSO.GetFolder(strDrive)

Set ObjFolder=Nothing

Set objFSO=Nothing

Wscript.Echo "Fertig"

 

Sub ShowSubFolders(Folder)

For Each Subfolder in Folder.SubFolders

If subfolder.name <> strQuellFolder Then

if not (objFSO.FolderExists(Subfolder.Path & "\" & strQuellFolder)) Then objFSO.CreateFolder(Subfolder.Path & "\" & strQuellFolder)

objFolder.Copy Subfolder.Path & "\" & strQuellFolder

End If

Next

End Sub

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...