Skip to Content

Registrieren Anmelden

Industry Online Support

Technical Forum

Navigation

VBSkript / Archiv kopieren unter Windows7

Erstellt von: EKA_neu am: 13.05.2022 10:10 (6 Antworten)

Bewertung (0)

Dank 2

7 Einträge

13.05.2022 10:10	Bewerten (0)
EKA_neu Mitglied Beigetreten: 16.08.2019 Letzter Bes: 11.10.2024 Beiträge: 5 Bewertung: (0)	Hallo liebe Community, ich versuche gerade ein Skript zu erstellen, welches erlaubt ein Archiv von C:\ bei Aufforderung (Button in RT) auf ein USB-Stick mit dem aktuellen Datum zu kopieren und benötige Ihre Hilfe. Etwas mit dem Einlegen von aktuellen Datum nicht funktioniert. Ich bedanke mich im Voraus, wenn jemand mir helfen kann. HW: IPC277E mit Windows 7 Ultimate SP1 32-Bit. SW: WinCC flexible 2008 SP2 Upd13. CODE: 'Ist der USB Stick vorhanden? Dim fso, drive, result Set fso= CreateObject("Scripting.FileSystemObject") On Error Resume Next Set drive= fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName("F:\Meldearchiv"))) If Err.Number=0 Then result= 0 Else result= Err.Number End If 'Auswertung des results If result<>0 Then ShowSystemAlarm "USB Stick nicht vorhanden" Exit Sub End If 'Laufenden Archiv auf USB kopieren If Not fso.FolderExists ("F:\Meldearchiv\") Then fso.CreateFolder ("F:\Meldearchiv\") Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next fso.CopyFolder "C:\Logs\Meldearchive\", "F:\Meldearchiv\" '& CStr(Date) & "," & CStr(Time) & .csv If Err.Number<>0 Then ShowSystemAlarm ("Fehler Nr. " & CStr(Err.Number) & ", " & Err.Description) Err.Clear ' Löscht den Fehler. Exit Sub Else 'Kopieren beendet ShowSystemAlarm "Kopieren des Störmeldearchives erfolgreich"

Vorschlag Bedanken Zitat Antwort

13.05.2022 10:57	Bewerten (0)
Murof Platin-Experte Beigetreten: 03.08.2009 Letzter Bes: 31.10.2024 Beiträge: 14079 Bewertung: (1765)	Hello EKA_neu Ich würde kein Archiv im Laufenden Betrieb kopieren (würde sowieso erwarten dass das Probleme macht). Du solltest die Archive Stoppen und alle Archive schließen machen. Analog zu: https://support.industry.siemens.com/cs/ww/de/view/64929232 Ansonsten scheinen mir die Parameter für die Funktion CopyFolder nicht ganz richtig zu sein... check das mal nochmal hier: LINK Wenn du noch Unterstützung benötigst, dann schreib mal bitte was genau nicht funktioniert und was du erwartest und was dann wirklich passiert, so genau wie möglich viele Grüße Murof
	If this Information really helps, you could use the Rate function
Vorschlag Bedanken Zitat Antwort

13.05.2022 13:29	Bewerten (0)
EKA_neu Mitglied Beigetreten: 16.08.2019 Letzter Bes: 11.10.2024 Beiträge: 5 Bewertung: (0)	Hallo Murof, Kundenwunsch ist folgendes: man druckt einen Button am Bildschirm und das aktuellen Störmeldearchiv soll auf eingesteckten USB-Stick mit aktuellen Datum kopiert werden. Wenn kein USB-Stick eingesteckt oder voll ist, dann kommt eine Meldung "Kopieren auf USB fehlgeschlagen". Bei fso.CopyFolder kommt eine Systemmeldung "Verzeichnis nicht gefunden". Mit Start/StoppLogging und Close/OpenAllLogs bin ich am Ziel nähe, aber nach dem Auswerfen eines USB-Sticks und dem Einstecken eines anderen, bekommt zweite USB-Stick andere Laufwerkbuchstabe. Und beim Drucken des Buttons am Bildschirm kommt die Meldung "USB Stick nicht vorhanden". CODE: 'Ist der USB Stick vorhanden? Dim fso, drive, result Set fso= CreateObject("Scripting.FileSystemObject") On Error Resume Next Set drive= fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName("F:\Meldearchiv"))) If Err.Number=0 Then result= 0 Else result= Err.Number End If 'Auswertung des results If result<>0 Then ShowSystemAlarm "USB Stick nicht vorhanden" Exit Sub End If 'Laufenden Archiv auf USB kopieren StopLogging hmiAlarmLog, "Störmeldearchiv" CloseAllLogs ArchiveLogFile hmiAlarmLog, "Störmeldearchiv", "F:\Meldearchiv\", hmiCopy OpenAllLogs StartLogging hmiAlarmLog, "Störmeldearchiv"

Vorschlag Bedanken Zitat Antwort

16.05.2022 14:03	Bewerten (0)
Murof Platin-Experte Beigetreten: 03.08.2009 Letzter Bes: 31.10.2024 Beiträge: 14079 Bewertung: (1765)	Hallo EKA_neu Hm das ist komisch dass der dann einen anderen Laufwerksbuchstaben bekommt, evtl kannst du Mit folgendem Script abfrage ob der USB Stick da ist: Wie können Sie mit einem Skript feststellen, ob ein Speicherlaufwerk mit Wechselmedien (USB-Stick, SD-/MMC-Karte) auf einem HMI-Gerät schreibbereit ist? https://support.industry.siemens.com/cs/ww/de/view/89855157 viele Grüße Murof
	If this Information really helps, you could use the Rate function
Vorschlag Bedanken Zitat Antwort

17.05.2022 11:55	Bewerten (0)
EKA_neu Mitglied Beigetreten: 16.08.2019 Letzter Bes: 11.10.2024 Beiträge: 5 Bewertung: (0)	Hallo! Ja, das habe ich gerade in meinem Script genutzt. Da neuer Stick eine andere Buchstabe bekommt, kommt auch eine Fehlermeldung "USB-Stick nicht vorhanden". Sollte Vergabe Laufwerkbuchstaben evtl. auf Windows-Ebene verwaltet werden? Oder kann man es in einem Skript allgemeinisieren? Grüße

Vorschlag Bedanken Zitat Antwort

18.05.2022 07:53	Bewerten (0)
Murof Platin-Experte Beigetreten: 03.08.2009 Letzter Bes: 31.10.2024 Beiträge: 14079 Bewertung: (1765)	Hallo EKA_neu Ich kenne das nur auf Windows Ebene. Im WinCC flexible kenne ich keine Funktion im Script mit der das gehen würde. Viele Grüße Murof
	If this Information really helps, you could use the Rate function
Vorschlag Bedanken Zitat Antwort
Für diesen Beitrag bedanken sich 1 Benutzer EKA_neu

07.06.2022 14:20	Bewerten (0)
Prof. Frink Platin-Experte Beigetreten: 05.07.2013 Letzter Bes: 01.11.2024 Beiträge: 3116 Bewertung: (514)	Hallo EKA, EKA_neu Hallo! Ja, das habe ich gerade in meinem Script genutzt. Da neuer Stick eine andere Buchstabe bekommt, kommt auch eine Fehlermeldung "USB-Stick nicht vorhanden". [...] wenn du diese Rückmeldung bekommst, könntest du im Skript auch die nächsten 20 Buchstaben durchprobieren und dem Bediener eine Rückmeldung geben, wenn kein Laufwerk (D, E, ..., Z) gefunden wurde. Gruss Frink
	Pi is exactly three! All you have to do is think of things which people need but which don’t exist yet.
Vorschlag Bedanken Zitat Antwort
Für diesen Beitrag bedanken sich 1 Benutzer EKA_neu

|

Teile diese Seite:

Teile diese Seite auf...

Folgen Sie uns auf