Parent Directory
Dieses Script war die Antwort auf einen "Hilferuf" aus dem Web.
Dateien eines bestimmten Typs sollen an eine zentrale Stelle kopiert werden. Existiert die übergeordnete Ordnerstruktur der Quelldatei nicht auf dem Ziellaufwerk, so wird diese dort angelegt.
Bisher werden nur Dateien eines vorher definierten Typs kopiert, jedoch kann man die Routine entwerder variablisieren oder per Inputbox arbeiten...
Dieses Script fragt einen Pfad ab, aus dem heraus Dateien kopiert werden sollen. Wenn im Ziel die Ordnerstruktur nicht vorhanden ist, so wird diese angelegt.
Option Explicit
Dim wshell, fso, WshNetwork, pa, Username, srcpath, dummy, anz, i, dstpathDim files, fl, typ, UP
'Angabe des Dateitypentyp = "LNK"
Set wshell = WScript.CreateObject("WScript.Shell")Set fso = WScript.CreateObject("Scripting.FileSystemObject")Set WshNetwork = WScript.CreateObject("WScript.Network")UP = wscript.ExpandEnvironmentStrings ("%USERPROFILE%")
pa = inputBox ("Welche Verzeichnisse sollen gesichert werden ?", "Abfrage", "Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch")'username = WshNetwork.UserNameSet srcpath = fso.getfolder(UP & "\" & pa)Set dstpath = fso.GetFolder("C:\Temp")Set files = srcpath.Files
dummy = Split(pa, "\", -1)anz=UBound(dummy)
For i = 0 To anzIf Not (fso.FolderExists(dstpath & "\" & dummy(i))) then fso.CreateFolder(dstpath & "\" & dummy(i))End Ifdstpath = dstpath & "\" & dummy(i)Next
'Es fehlt jetzt nur noch das FileCopy
For Each i In files
If UCase(fso.GetExtensionName(i.name) ) = typ Then
dummy = Split(i, "\", -1) anz=UBound(dummy) fso.CopyFile srcpath & "\" & dummy(anz), dstpath & "\" & dummy(anz)
End Ifnext