Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Habe ein Problem mit der CMD Variale date

Frage Entwicklung VB for Applications

Mitglied: OliverBecht

OliverBecht (Level 1) - Jetzt verbinden

16.10.2008, aktualisiert 20.10.2008, 4184 Aufrufe, 11 Kommentare

Hallo ich habe ein Skript das soweit gut laüft jedoch gibt der Befehl in Robocopy nicht das Datum für den Ordner raus sondern nur einen Ordner mit %date%.
Hier der teil vom Skript:

'robocopy aufrufen
robo = "robocopy /move ""R:\Mein Buero Backup"" ""R:\Mein Buero Backup\%date%"""
wshshell.run robo,0,true

Vielleich kann mir jemand helfen !
Vielen Dank
Mitglied: Logan000
16.10.2008 um 14:33 Uhr
Moin Moin

Ich glaub Du hast es mit den " einfach zu gut gemeint.
Probiers mal so:
01.
... 
02.
robo = "robocopy /move ""R:\Mein Buero Backup"" ""R:\Mein Buero Backup\""%date%"  
03.
...
Gruß L.
Bitte warten ..
Mitglied: Biber
16.10.2008 um 14:47 Uhr
Moin OliverBecht,

Du kannst in VB-whatever keine Shell-Umgebungsvariablen direkt (also als %var%) ansprechen,
sondern mussu über die vorgesehenen Schnittstellen-Methoden holen.
01.
Set oShell = CreateObject( "WScript.Shell" ) 
02.
envdate=oShell.ExpandEnvironmentStrings("%date%") 
03.
.... 
04.
WScript.Echo 'datum %date%' & " " & envdate
Wobei Du natürlich über Now oder date genau das gleiche in der Hand hast.... nur schneller halt.

Grüße
Biber
Bitte warten ..
Mitglied: OliverBecht
16.10.2008 um 15:24 Uhr
Vielleicht bin ich der DAU jedenfalls wenn ich den Quelltext in mein Skript einbaue dann kommt nur eine leere Msg Box mit einem OK Button
Ich setzte jetzt mal das ganze Skript.
Vielen Dank ......

Option Explicit
Dim fs, net, objectDomain, wshshell, objectUser, oShell, envdate
Dim delage
Dim robo
Dim aufrufen

'Zugriff auf Objecte
Set fs = CreateObject("Scripting.FileSystemObject")
Set net = CreateObject("WScript.Network")
Set wshshell = CreateObject("Wscript.Shell")

Set oShell = CreateObject( "WScript.Shell" )
envdate=oShell.ExpandEnvironmentStrings("%date%")
WScript.Echo 'datum %date%' & " " & envdate

'Laufwerk prüfen
set fs = CreateObject("Scripting.FileSystemObject")
if fs.driveexists("R:") then
WshShell.Popup "Die Datensicherung beginnt jetzt.",2, "Datensicherung", vbOKOnly + vbInformation
else
WshShell.Popup "Datensicherung abgebrochen.",, "Datensicherung", vbOKOnly + vbInformation
WScript.Quit
end if

'Datensicherung
wshshell.run """C:\Programme\Buhl\Mein Büro 2009\mfBCK.exe"" A ""R:\Mein Buero Backup\"" true true true",0,true

'robocopy aufrufen
robo = "robocopy /move ""R:\Mein Buero Backup"" ""R:\Mein Buero Backup\""%date%"
wshshell.run robo,0,true

'delage32 aufrufen
delage = "delage32 ""R:\Mein Buero Backup\*.*"" 1 /recurse /rd /subonly"
wshshell.run delage,0,true

'Info senden
WshShell.Popup "Die Datensicherung ist jetzt beendet.",2, "Datensicherung", vbOKOnly + vbInformation
Bitte warten ..
Mitglied: Logan000
16.10.2008 um 15:48 Uhr
Moin

Zitat von OliverBecht:
Vielleicht bin ich der DAU ...
Nein bist du nicht.
01.
oShell.ExpandEnvironmentStrings("%date%")
funktioniert nicht (mit %USERNAME% hingegen schon.

Also entweder probierst Du es So
01.
... 
02.
'robocopy aufrufen	 
03.
robo = "robocopy /move ""R:\Mein Buero Backup"" ""R:\Mein Buero Backup\"""  & Date() 
04.
wshshell.run robo,0,true 
05.
...
oder so
01.
... 
02.
'robocopy aufrufen	 
03.
robo = "robocopy /move ""R:\Mein Buero Backup"" ""R:\Mein Buero Backup\"""   
04.
wshshell.run robo%date%,0,true 
05.
...
Gruß L.
Bitte warten ..
Mitglied: OliverBecht
16.10.2008 um 16:13 Uhr
Variante 1 geht zwar, es wird jedoch kein Ordner erstellt.
Variante 2 geht gar nicht da kommt eine Fehlermeldung das irgend was nicht stimmt
Muss ich was mit dem Quelltext oShell.ExpandEnvironmentStrings("%date%") machen ?
Bitte warten ..
Mitglied: Logan000
17.10.2008 um 15:22 Uhr
Moin Moin

Variante 2 geht gar nicht da kommt eine Fehlermeldung das irgend was nicht stimmt
Da nimmst Du wohl besser Variante 1
Muss ich was mit dem Quelltext oShell.ExpandEnvironmentStrings("%date%") machen ?
Löschen.

Variante 1 geht zwar, es wird jedoch kein Ordner erstellt.
Robocopy erwartet wohl das das Zielverz. bereits existiert.
Das must Du wohl anlegen. Etweder nit dem Batchbefehl MD oder via FileSystemObject und createfolder.

Gruß L.
Bitte warten ..
Mitglied: OliverBecht
17.10.2008 um 15:58 Uhr
Der Befehl /md in Robocpy geht auch nicht, es kommt weiterhin nur eine Datei ohne Ordner mit Datum
Weis jetzt auch nicht mehr weiter ?
Bitte warten ..
Mitglied: Logan000
17.10.2008 um 16:09 Uhr
Moin

MD oder auch Mkdir ist auch kein Parameter von Robokopy sonder ein "eigener Befehl"
Siehe: Windows Hilfe.

Gruß L.
Bitte warten ..
Mitglied: dieseyer
19.10.2008 um 08:24 Uhr
Auf diese Weise ist die 'Umgebungsvariable' %date% nicht erreichbar, weil als 'Befehslinterpreter' nicht die normale Eingabeaufforderung (DOS-Box) verwendet wird, sondern "Wscript.Shell".

'Eigentlich' sollte man das einzufügende Datum im Skript ermitteln, ähnlich wie in http://dieseyer.de/scr-html/datensicherung.html (die Prozedur "Function Datumverzeichnis ( ZielVerz )" )

Oder (man startet nicht robocopy, sondern) man lässt robocopy in der Eingabeaufforderung laufen:
01.
"%comspec% /c robocopy /move ""R:\Mein Buero Backup"" ""R:\Mein Buero Backup\%date%"""
Mit "%comspec% /k" bleibt die Eingabeaufforderung offen und man sieht, was passiert ist - man muss sie von Hand schließen; mit "%comspec% /c" verschwindet sie von alleine.
Bitte warten ..
Mitglied: OliverBecht
20.10.2008 um 08:33 Uhr
Tausend Dank, es hat jetzt geklappt.
Bitte warten ..
Mitglied: Logan000
20.10.2008 um 08:56 Uhr
Moin Moin
Zitat von OliverBecht:
Tausend Dank, es hat jetzt geklappt.

Das Freut mich.
Es wäre dennoch nett wenn Du die genaue Lösung posten würdest (für alle anderen mit ähnlichen Problemem).
Un sei doch so gut und setze den beitrag auf erledigt.

Danke & Gruß L.
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Programm über CMD starten (9)

Frage von Galawayne zum Thema Batch & Shell ...

Batch & Shell
gelöst Vergleiche Strings in CMD (4)

Frage von it4baer zum Thema Batch & Shell ...

Vmware
gelöst Virtuelle Maschine mit der cmd öffnen? (12)

Frage von PascalIT zum Thema Vmware ...

Windows Systemdateien
gelöst CMD wird nicht wie gewohnt von c:users-username gestartet (4)

Frage von WinLiCLI zum Thema Windows Systemdateien ...

Neue Wissensbeiträge
Virtualisierung

Docker Monitoring und Steuerung per "sen"

Tipp von Frank zum Thema Virtualisierung ...

Viren und Trojaner

Neues Botnetz über IoT-Geräte

(5)

Information von certifiedit.net zum Thema Viren und Trojaner ...

Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Heiß diskutierte Inhalte
Windows Installation
Windows 10 neu installieren (17)

Frage von imebro zum Thema Windows Installation ...

Router & Routing
Externe IP von innen erreichbar machen (15)

Frage von Windows10Gegner zum Thema Router & Routing ...

Windows Server
Frage zu Server Rack (11)

Frage von rainergugus zum Thema Windows Server ...