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.

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 385391

Url: https://administrator.de/forum/vbs-script-hilfe-385391.html

Ausgedruckt am: 26.12.2024 um 13:12 Uhr

3 Kommentare

Neuester Kommentar

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

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 