3
Vbs Script Hilfe
Liebe Gemeinde,
hat von euch zufällig jemand ein VBs Script das folgendes o.ä macht:
Das Script wird per GPO beim Anmelden ausgelöst....
"Wenn der Ordner "c:\users\%username%\Desktop\Sync\" NICHT LEER ist, dann Verschiebe den Inhalt nach \\Server\Users$\%username%\"'Backup+Datum/Uhrzeit'".
Dh. er soll den Inhalt, falls es einen gibt, auf die Netzwerkshare in einen Ordner mit dem Titel (Bsp.: "Backup040920181523") verschieben.
Bin für jede Hilfe dankbar!
Gruß Dr.
hat von euch zufällig jemand ein VBs Script das folgendes o.ä macht:
Das Script wird per GPO beim Anmelden ausgelöst....
"Wenn der Ordner "c:\users\%username%\Desktop\Sync\" NICHT LEER ist, dann Verschiebe den Inhalt nach \\Server\Users$\%username%\"'Backup+Datum/Uhrzeit'".
Dh. er soll den Inhalt, falls es einen gibt, auf die Netzwerkshare in einen Ordner mit dem Titel (Bsp.: "Backup040920181523") verschieben.
Bin für jede Hilfe dankbar!
Gruß Dr.
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 385391
Url: https://administrator.de/contentid/385391
Printed on: April 16, 2024 at 05:04 o'clock
3 Comments
Latest comment
Moin,
30 Sekunden Googlen
60 Sekunden Quelle sichten
und
120 Sekunden hier posten brachte folgende Ergebnisse:
Google-Suche: vbs if folder is not empty
Ergebnis: https://jagspage.wordpress.com/2012/08/22/vbscript-to-check-if-folder-is ...
Google-Suche: vbs pattern timstamp now
Ergebnis: https://stackoverflow.com/questions/28765980/vb-script-date-formats-yyyy ...
Google-Suche: vbscript move files and folders
Ergebnis: https://stackoverflow.com/questions/22994013/vbscript-to-move-all-files- ...
Den Rest kannst du alleine, hast ja auch das Board hier gefunden ;)
Gruß
em-pie
30 Sekunden Googlen
60 Sekunden Quelle sichten
und
120 Sekunden hier posten brachte folgende Ergebnisse:
Google-Suche: vbs if folder is not empty
Ergebnis: https://jagspage.wordpress.com/2012/08/22/vbscript-to-check-if-folder-is ...
Google-Suche: vbs pattern timstamp now
Ergebnis: https://stackoverflow.com/questions/28765980/vb-script-date-formats-yyyy ...
Google-Suche: vbscript move files and folders
Ergebnis: https://stackoverflow.com/questions/22994013/vbscript-to-move-all-files- ...
Den Rest kannst du alleine, hast ja auch das Board hier gefunden ;)
Gruß
em-pie
Hier zum Basteln ...
Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.Shell")
strFolder = objShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Desktop\Sync"
strUsername = objShell.ExpandEnvironmentStrings("%USERNAME%")
If fso.FolderExists(strFolder) then
If fso.GetFolder(strFolder).Files.Count > 0 or fso.GetFolder(strFolder).Subfolders.Count > 0 Then
objShell.Run "robocopy " & """" & strFolder & """ """ & """\\Server\Users$\" & strUsername & "\Backup" & Year(Date) & Right("0" & Month(Date),2) & Right("0" & Day(Date),2) & Right("0" & Hour(Now),2) & Right("0" & Minute(Now),2) & """ /E /Move",0,True
End If
End if 
Perfekt ich bedanke mich, besser geht's nicht 
.
Gruß
.Gruß