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

Ergebnis 1 bis 7 von 7

Thema: Daten von Simatic SD auf Netzlaufwerk

  1. #1
    Registriert seit
    30.01.2013
    Beiträge
    9
    Danke
    0
    Erhielt 0 Danke für 0 Beiträge

    Pfeil


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hallo liebe SPS´ler,
    Ich muss im Praktikum Daten von einer Simatic SD Karte die in einem Simatic HMI Touch Panel 1500 Comfort steckt Meldeprotokolle die im .CSV Format erstellt werden ,auf ein Netzlaufwerk verschieben. Da ich noch nie in VB programmiert habe bräuchte ich eine Funktion die das Regelt.Diese würde dann per Aufgabe aufgerufen werden.
    Folgendes muss die Funktion können:
    1.Dateiname mit Zeitstempel(Datum ohne Punkte)versehen.
    2.Datei mit dem Alten Dateinamen löschen.
    3.Verbindung zum Netzlaufwerk herstellen.
    5.Die Dateien auf die Platte verschieben.
    6.Verbindung schließen.

    Ich hoffe ihr könnt mir helfen.

    LG Farbtopf
    Zitieren Zitieren Daten von Simatic SD auf Netzlaufwerk  

  2. #2
    Registriert seit
    20.06.2003
    Ort
    Sauerland.NRW.Deutschland
    Beiträge
    4.850
    Danke
    78
    Erhielt 800 Danke für 543 Beiträge

    Standard

    klar könnten wir deine arbeit erledigen. tun wir aber nicht.
    hilfe gibst immer wenn du lösungsansätze hast.
    http://www.sps-forum.de/showthread.p...-mit-VB-Script
    .
    mfg Volker .......... .. alles wird gut ..

    =>Meine Homepage .. direkt zum Download

    Meine Definition von TIA: Total Inakzeptable Applikation

  3. #3
    Registriert seit
    22.06.2009
    Ort
    Sassnitz
    Beiträge
    11.166
    Danke
    921
    Erhielt 3.286 Danke für 2.655 Beiträge

    Standard

    Hallo lieber Farbtopf,
    natürlich können wir Dir helfen.
    Hier findest Du Beispielcode und Hinweise für alle Deine Teilaufgaben:
    FAQ: Protool/WinCCflex Daten lesen / schreiben mit VB-Script
    Move *.* bzw. Dateien kopieren
    Dateinamen aus Systemzeit erzeugen
    FAQ: Von Panel auf PC über LAN zugreifen

    Solltest Du bei Deiner konkreten Lösungsumsetzung noch Detailprobleme haben, dann kannst Du gerne wieder fragen.

    Alternativ findet sich bestimmt jemand, der Dir eine Komplett-Fertig-Lösung erstellt, wenn Du Deine Aufgabe bei Suche & Biete schilderst und Deine angebotene Entlohnung hoch genug ist Allerdings wäre dann Dein Lerneffekt nich so dolle, ganz zu Schweigen vom Verlust der Genugtuung, etwas selbst geschafft zu haben ...

    Harald
    Es ist immer wieder überraschend, wie etwas plötzlich funktioniert, sobald man alles richtig macht.

    FAQ: Linkliste SIMATIC-Kommunikation über Ethernet

  4. #4
    Farbtopf ist offline Neuer Benutzer
    Themenstarter
    Registriert seit
    30.01.2013
    Beiträge
    9
    Danke
    0
    Erhielt 0 Danke für 0 Beiträge

    Standard

    Hi ich habe was gefunden und es etwas ausgebaut.Wollte sum Anfang erstmal nur eine Datei in einen Anderen ordner Schieben.

    Code:
        Dim movefile 
        Dim today
        today = Date 
     
        Set movefile = CreateObject("FileCtl.FileSystem")
        movefile.MkDir "\Storage Card SD\Meldungen\" & today
        movefile.MoveFile "\Storage Card SD\Meldungen\Meldearchiv_Betriebsmeldungen0.csv\", "\Storage Card SD\Meldungen\"& today &"\Meldearchiv_Betriebsmeldungen0.csv\"
        ShowSystemAlarm "Datei Verschoben."
    Doch ich bekomm beim Auslösen der Sub diese Fehlermeldung: AccessDenied Ordner wird erstellt.

    Ich denke das es irgendwie was mit den Rechten des neu erstellten Ordners zu tun hat.
    lg Farbtopf

  5. #5
    Registriert seit
    20.06.2003
    Ort
    Sauerland.NRW.Deutschland
    Beiträge
    4.850
    Danke
    78
    Erhielt 800 Danke für 543 Beiträge

    Standard

    im erstellen des verzeichnisses sehe ich keinen fehler.
    wird das verzeichnis denn erstellt?
    hast du das archiv vorher geschlossen?

    versuch mal anstatt movefile.MoveFile, movefile.FileCopy
    .
    mfg Volker .......... .. alles wird gut ..

    =>Meine Homepage .. direkt zum Download

    Meine Definition von TIA: Total Inakzeptable Applikation

  6. #6
    Registriert seit
    22.06.2009
    Ort
    Sassnitz
    Beiträge
    11.166
    Danke
    921
    Erhielt 3.286 Danke für 2.655 Beiträge

    Standard

    * Ich meine, an das Ende des Dateinamens (nach dem ".csv") gehört kein Backslash.
    * Vor dem Erstellen eines Ordners muß geprüft werden, ob es schon einen Ordner mit diesem Name gibt.
    * Den Ordnername, der aus dem Datum gebildet wird, würde ich unabhängig von den regionalen Settings des Panels mit DatePart(...) erzeugen.
    * Im Script zusammengesetzte Datei/Pfadnamen würde ich mir zum Test per ShowSystemAlarm anzeigen lassen.
    * um Tippfehler bei Mehrfachverwendung von Strings zu vermeiden, mehr mit Variablen arbeiten

    Code:
    Dim fso, dstpath, arcpath, arcfile
    
    arcfile = "Meldearchiv_Betriebsmeldungen0.csv"
    arcpath = "\Storage Card SD\Meldungen\"
    dstpath = arcpath & Date & "\"
    'ShowSystemAlarm "Zieldatei: '" & dstpath & arcfile & "'" 'Testausgabe zum beobachten
    
    Set fso = CreateObject("FileCtl.FileSystem")
    If fso.Dir(dstpath) = "" Then fso.MkDir dstpath
    
    fso.FileCopy arcpath & arcfile, dstpath & arcfile
    ShowSystemAlarm "Datei kopiert."
    Ergänzung/Tip: Ausführliche Informationen und ein Tutorium zu VBScript gibt es im WinCC flexible Hilfesystem in der Registerkarte "Inhalt" unter "WinCC flexible Information System > Arbeiten mit WinCC flexible > Referenz".

    Harald
    Es ist immer wieder überraschend, wie etwas plötzlich funktioniert, sobald man alles richtig macht.

    FAQ: Linkliste SIMATIC-Kommunikation über Ethernet

  7. #7
    Farbtopf ist offline Neuer Benutzer
    Themenstarter
    Registriert seit
    30.01.2013
    Beiträge
    9
    Danke
    0
    Erhielt 0 Danke für 0 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Vielen dank konnte die Lösungsansätze jetzt noch nicht ausprobieren Feierabend

    Werde es morgen versuchen und euch dann erzählen obs geklappt hat.

    lg Farbtopf

Ähnliche Themen

  1. Antworten: 0
    Letzter Beitrag: 04.03.2010, 07:36
  2. CX9000 Logdatei auf Netzlaufwerk schreiben
    Von hodde im Forum CODESYS und IEC61131
    Antworten: 2
    Letzter Beitrag: 20.11.2009, 15:49
  3. Antworten: 0
    Letzter Beitrag: 17.09.2009, 10:14
  4. Antworten: 3
    Letzter Beitrag: 19.09.2005, 16:33
  5. Antworten: 1
    Letzter Beitrag: 22.02.2005, 10:22

Lesezeichen

Berechtigungen

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