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

Seite 1 von 4 123 ... LetzteLetzte
Ergebnis 1 bis 10 von 32

Thema: WinCC Flex. Daten per VBS ins Netzwerk kopieren

  1. #1
    Registriert seit
    22.08.2006
    Beiträge
    35
    Danke
    2
    Erhielt 0 Danke für 0 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Guten Morgen,

    ich habe mal eine Frage.
    Ich habe ein MP277 in dem ich eine Protokolldatei (.csv) zusammenbaue.
    Diese möchte ich gerne mit einem Trigger an einen Netzwerkpartner schicken.

    Wie heißt der Befehl dazu? Hab nichts gefunden

    Danke für eure Unterstützung
    Zitieren Zitieren WinCC Flex. Daten per VBS ins Netzwerk kopieren  

  2. #2
    Registriert seit
    22.03.2007
    Ort
    Detmold (im Lipperland)
    Beiträge
    11.710
    Danke
    398
    Erhielt 2.397 Danke für 1.997 Beiträge

    Standard

    Hallo,
    die Methode, die du verwenden müßtest heißt FILECOPY.
    Wie das verwendet wird findest du in der VB-Script-Sprachreferenz von WinCE oder in der FAQ hier .
    Den Trigger, der das Ganze startet, mußt du dir schon selbst erzeugen - vielleicht ein Bit, das gesetzt wird und bei dem du "bei Wertänderung" desselben das Copy-Script startest ...

    Gruß
    LL

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

    Pfeil

    Hallo,
    falls Du grundsätzliche Probleme beim Zugriff auf Deinen Netzwerkpartner hast, dann siehe diesen FAQ:
    Von Panel auf PC über LAN zugreifen

    Gruß
    Harald

  4. #4
    Registriert seit
    22.08.2006
    Beiträge
    35
    Danke
    2
    Erhielt 0 Danke für 0 Beiträge

    Standard

    Hallo,

    danke für die Antworten,

    die Funktion FileCopy klappt nicht.

    die funktion wird nicht durchlaufen. Was kann das für gründe haben?

    Hier mal der Funktionsinhalt

    If SmartTags("MP 277.Bool_Variablen.Daten_Senden") = True Then

    Dim Dateiname, Ablageort, Zielordner, Jahrestag
    Dim fso

    Set Jahrestag = SmartTags("MP 277.Seriennummer.Tag_im_Jahr")
    Dateiname = "Tabelle Tag_" & Jahrestag
    Ablageort = "\My Dokuments\OrdnerX\" & Dateiname & ".csv"
    Zielordner = "\\NotebookXY\OrdnerX\"

    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.MoveFile Ablageort, Zielordner

    SmartTags("MP 277.Bool_Variablen.Daten_Senden") = False

    End If
    Geändert von Feldmann (15.06.2010 um 14:15 Uhr)

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

    Standard

    Mach Dir mal in das Vorlage-Bild ein Meldefenster rein für die Meldeklasse System, damit Du die
    Runtime-Errors angezeigt bekommst.
    Zum Debuggen empfiehlt es sich auch, im Programmablauf Panelvariablen (SmartTags) zu beschreiben
    und/oder Systemmeldungen auszugeben.

    Da Dein Script auf dem MP277 laufen soll, mußt Du die Filefunktionen für WinCE benutzen.

    Code:
    'MP277 WinCE
        Set fso = CreateObject("FileCtl.FileSystem")
        ShowSystemAlarm "Filesystem-ActiveX-Objekt wurde erstellt"
        fso.FileCopy "\FLASH\meinedatei.csv", "\\computername\sicher\"
        ShowSystemAlarm "meinedatei.csv wurde kopiert"
    Code:
    'Simulation unter PC-Windows
        Set fso = CreateObject("Scripting.FileSystemObject")
        ShowSystemAlarm "Filesystem-ActiveX-Objekt wurde erstellt"
        fso.CopyFile "C:\FLASH\meinedatei.csv", "D:\sicher\"
        ShowSystemAlarm "meinedatei.csv wurde kopiert"
    Gruß
    Harald
    Geändert von PN/DP (15.06.2010 um 14:50 Uhr)

  6. #6
    Registriert seit
    22.08.2006
    Beiträge
    35
    Danke
    2
    Erhielt 0 Danke für 0 Beiträge

    Standard

    folgende Meldung erscheint:
    "The system cannot find the path specified
    'in skript <Daten_Senden> in Zeile 14

    Zeile 14: fso.filecopy "\My Documents\Ordner\Datei.csv", "\\MeinRechner\Ordner"

    was ist hier falsch?

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

    Standard

    es fängt schon mal damit an, das du mit wince arbeitest.
    da ist das anders. das steht aber auch FAQ -----> hier

    Set f= CreateObject("filectl.file")
    Set fs = CreateObject("filectl.filesystem")

    der copierbefehl sollte dann so aussehen
    fs.filecopy t_root_path & "\"&zs_jahr&"\BS_"&zs_jahr&"-"&zs_monat&".csv", t_net_path &"\Betriebsstunden\"&zs_jahr&"\BS_"&zs_jahr&"-"&zs_monat&".csv"
    .
    mfg Volker .......... .. alles wird gut ..

    =>Meine Homepage .. direkt zum Download

    Meine Definition von TIA: Total Inakzeptable Applikation

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

    Standard

    Zitat Zitat von Feldmann Beitrag anzeigen
    "The system cannot find the path specified
    'in skript <Daten_Senden> in Zeile 14

    Zeile 14: fso.filecopy "\My Documents\Ordner\Datei.csv", "\\MeinRechner\Ordner"
    Die Meldung ist doch eindeutig, entweder wird "\My Documents\Ordner\Datei.csv" oder "\\MeinRechner\Ordner" nicht gefunden.

    Das MP277 hat einen Windows Explorer (Start > Programs > Windows Explorer). Damit kannst Du die Pfade überprüfen.

    Ich vermute, der Netzwerkpfad wird nicht gefunden. Wenn das so ist, dann siehe die in meinem Beitrag #3 verlinkte FAQ.

    Oder Dein tatsächliches "Datei.csv" enthält irgendwelche unzulässigen Sonderzeichen im Dateiname.
    Versuche doch erst einmal, eine ganz einfache Datei "Test.txt" (oder so) innerhalb des Panels zu kopieren.

    Gruß
    Harald

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

    Standard

    Aus meinem WCCF/VBS-Fundus:
    Code:
    ' Sub FileCopy(SourceFile, DestFile) kopiert eine Datei
    ' Skript kann unter Panel-WinCE und PC-Windows laufen
    '
    Dim fso
    If SmartTags("_System\!_RT-Sim_!") Then 'PC-Windows
        Set fso = CreateObject("Scripting.FileSystemObject")
        fso.CopyFile SourceFile, DestFile
    Else 'WinCE
        Set fso = CreateObject("FileCtl.FileSystem")
        'fso.FileCopy erzeugt Runtime-Error, wenn DestFile schon existiert
        If fso.Dir(DestFile) <> "" Then fso.Kill DestFile
        fso.FileCopy SourceFile, DestFile
    End If
    Damit ich meine Panel-Projekte komplett unter Windows XP testen/simulieren kann,
    habe ich im WCCflexible-Projekt eine interne Panel-Variable "_System\!_RT-Sim_!"
    vom Typ Byte, deren Startwert ich auf 0 oder 1 festlege, je nachdem, ob die Runtime
    auf dem Panel oder auf dem WinXP-Testsystem laufen soll:
    0 = RT auf WinCE-Panel / >=1 = RT auf PC (Simulation/Test)

    Gruß
    Harald
    Zitieren Zitieren VBS-Skript FileCopy  

  10. #10
    Registriert seit
    22.08.2006
    Beiträge
    35
    Danke
    2
    Erhielt 0 Danke für 0 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Moin,

    Tausend Dank noch mal für die hilfreichen Antworten.

    Mittlerweile hab ich es auch geschafft. Es funzt!!

    Jetzt wäre halt noch interessant, vor dem Senden zu prüfen, ob der Netzwerkteilnehmer erreichbar ist. Ansonsten macht das Senden keinen sinn.

    Auch hier eine Frage an die Gemeinschaft.

Ähnliche Themen

  1. Antworten: 0
    Letzter Beitrag: 06.01.2011, 15:44
  2. Antworten: 4
    Letzter Beitrag: 18.12.2009, 14:34
  3. S7-Simatic Netzwerk in WinCC Flex anzeigen
    Von fahrenholzsaar im Forum HMI
    Antworten: 3
    Letzter Beitrag: 24.11.2009, 08:15
  4. Antworten: 2
    Letzter Beitrag: 11.09.2008, 21:45
  5. WINCC Flex- Vorlage kopieren?
    Von knabi im Forum HMI
    Antworten: 2
    Letzter Beitrag: 24.07.2007, 10:59

Lesezeichen

Berechtigungen

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