Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Ergebnis 1 bis 2 von 2

Thema: Skript Archive kopieren

  1. #1
    Registriert seit
    17.01.2011
    Beiträge
    105
    Danke
    12
    Erhielt 2 Danke für 2 Beiträge

    Frage


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hallo Jungs

    Unten ist ein Skript aufgeführt, den ich selber geschrieben habe und wollte wissen, ob es funktioniert.
    Im Skript schreiben bin ich deutlich einen Anfänger und deshalb brauche ich Eure Hilfe.
    Funktion:
    Das Skript wird im Aufgabenplaner aufgerufen, und die Archive werden auf dem USB-Stick kopiert, wenn
    der Schalter Export Archive auf True und der USB-Stick im Panel eingesteckt ist.

    'Export von Archive:
    Dim Pfad, Ordner, fs, Index
    Set fs = CreateObject("FileCtl.Filesystem")
    Pfad = "Storage Card USB"
    Ordner = "Test1"
    If SmartTags("Schalter_Export_Archive")= True Then
    For Index = 1 To 15000
    If fs.Dir("" & Pfad) = "" And Index >= 15000 Then
    ShowSystemAlarm "Storage Card USB nicht vorhanden!"
    Exit Sub
    ElseIf fs.Dir("" & Pfad) = Pfad Then
    If fs.Dir("" & Pfad & "" & Ordner, 16) = "" Then
    fs.mkdir "" & Pfad & "" & Ordner
    CloseAllLogs
    ArchiveLogFile hmiDataLog, "Archiv1", "" & Pfad & "" & Ordner, hmiCopy
    ArchiveLogFile hmiDataLog, "Archiv2", "" & Pfad & "" & Ordner, hmiCopy
    OpenAllLogs
    Exit For
    Else
    CloseAllLogs
    ArchiveLogFile hmiDataLog, "Archiv1, "" & Pfad & "" & Ordner, hmiCopy
    ArchiveLogFile hmiDataLog, "Archiv2", "" & Pfad & "" & Ordner, hmiCopy
    OpenAllLogs
    Exit For
    End If
    End If
    Next
    End If

    ' Fehlerbehandlung
    If Err.Number <> 0 Then
    ' Kopierauftrag mit Fehlern beendet/abgebrochen
    ShowSystemAlarm "Fehler/fault: " & Err.Description
    Err.Clear
    Exit Sub
    End If
    ' Verwendeten Speicher wieder freigeben
    Set fs = Nothing

    Danke!

    Gruss
    TMaroni
    Zitieren Zitieren Skript Archive kopieren  

  2. #2
    TMaroni ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    17.01.2011
    Beiträge
    105
    Danke
    12
    Erhielt 2 Danke für 2 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Kann mir niemand einige Tipps geben zu meinem Skript?

    gruss
    Tmaroni

Ähnliche Themen

  1. Antworten: 1
    Letzter Beitrag: 22.01.2014, 23:31
  2. WinCC V7.0SP3 - In globalem Skript Structs kopieren
    Von soundmachine123 im Forum HMI
    Antworten: 3
    Letzter Beitrag: 09.04.2013, 17:25
  3. Antworten: 1
    Letzter Beitrag: 19.01.2012, 20:26
  4. Antworten: 1
    Letzter Beitrag: 21.05.2010, 09:09
  5. skript kopieren und smarttags
    Von Hocheck im Forum HMI
    Antworten: 3
    Letzter Beitrag: 17.02.2010, 00:22

Stichworte

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •