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

Ergebnis 1 bis 4 von 4

Thema: Script Archiv löschen

  1. #1
    Registriert seit
    26.11.2011
    Beiträge
    139
    Danke
    26
    Erhielt 0 Danke für 0 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hallo,

    Nach dem Schreiben von Daten auf MMC mittel eines Skript und Kopieren der Daten im einem Rechner auch mittels eines Skript.
    wollte ich die Daten auf MMC löschen. ich habe den unten beigefügten Skript benutzt, aber es tut nicht, die Daten auf MMC werden nicht gelöscht.was
    ist nicht in diesem Skript nicht richtig?
    der Skript wird aufgerufen, wenn ich auf ein Button im Panel drücke.

    Skript:

    t_root_path="\Storage Card MMC\Ofen"
    Set f=CreateObject("Filectl.file")
    Set fs=CreateObject("filectl.filesystem")

    fs.Kill t_root_path&"\Werte.csv"


    Set fs= Nothing
    ShowSystemAlarm "Datei gelöscht"
    Zitieren Zitieren Script Archiv löschen  

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

    Standard

    Code:
    ' Sub FileDel(Path) löscht eine Datei
    ' Skript kann unter OP-WinCE und PC-Windows laufen
    '
    Dim fso
    If SmartTags("_System\!_RT-Sim_!") Then 'PC-Windows
    	Set fso = CreateObject("Scripting.FileSystemObject")
    	If fso.FileExists(Path) Then fso.DeleteFile Path
    Else 'WinCE
    	Set fso = CreateObject("FileCtl.FileSystem")
    	If fso.Dir(Path) <> "" Then fso.Kill Path
    End If
    Harald
    Es ist immer wieder überraschend, wie etwas plötzlich funktioniert, sobald man alles richtig macht.

    FAQ: Linkliste SIMATIC-Kommunikation über Ethernet

  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

    Standard

    Eigentlich macht mein Skript fast das Gleiche wie Deines, also Fragen:
    - heißt der MMC-Slot bei Deinem Panel tatsächlich "\Storage Card MMC\"?
    - erhältst Du eine Systemmeldung warum das Skript nicht löscht? Erhältst Du überhaupt eine Systemmeldung?
    - versuche mal den Dateiname t_root_path&"\Werte.csv" schon vor dem Aufruf von fs.Kill zusammenzubasteln

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

    FAQ: Linkliste SIMATIC-Kommunikation über Ethernet

  4. #4
    ka1978 ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    26.11.2011
    Beiträge
    139
    Danke
    26
    Erhielt 0 Danke für 0 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Danke,

    - Also der slot name ist richtig
    - Skript lösche wird beim Drucken auf ein Button aufgerufen, dann bekomme ich die folgende Meldung : Datei gelöscht
    jetzt habe ich noch ein andere Problem, was vorher nicht der fall war. wenn ich kopiere, wird es nur eine Zeile geschrieben .
    Code:
    ----------------------------Daten auf MMC schreiben-----------------
    Dim f,fs,Datei,Datum,strHeader,strDatenzeile
    On Error Resume Next
    Set f=CreateObject("filectl.file")
    Set fs=CreateObject("filectl.filesystem")
    '---------Verzeichnis erstellen--------------------
    If fs.dir("Storage Card MMC\Ofen")="" Then fs.mkdir("Storage Card MMC\Ofen")
    '---------Daten im MMC schreiben----------
    Datei = "\Storage Card MMC\Ofen\werte.csv"
    Datum= "20"&Right(Date,2)&"."&Mid(Date,4,2)&"."&Left(Date,2)
    strHeader="Datum;"&"Uhrzeit;"&"temp._B1[°C];"&"temp.B2;"&"temp.B3[°C];"&"temp.B4[°C];"&"Druck. A1[mbar];"&"Druck.A2[mbar]"
    strDatenzeile=CStr(Date)& ";" &CStr(Time)&";"& SmartTags("DB_Messwerte.t_B1")&";"& SmartTags("DB_Messwerte.t_B2")&";"& SmartTags("DB_Messwerte.t_B3")&";"& SmartTags("DB_Messwerte.t_B4")&";"& SmartTags("DB_Messwerte.P_A1")&";"& SmartTags("DB_Messwerte.P_A2")
    If SmartTags ("DB-Allgemein.Daten_Schreiben")= True  Then
        If  fs.dir("Datei")="" Then
        
     f.open Datei,2
     f.LinePrint "Trockenofen Prozesswerte"
            f.LinePrint strHeader
            f.LinePrint strDatenzeile
            f.Close   
       
        Else 
        
       f.open Datei,8 
       f.LinePrint strDatenzeile
       f.Close 
       
     End If
     
    End If 
    -------------------------------------Daten von MMC zum PC übertragen (Kopieren)-------------------------------- 
    On Error Resume Next
    Dim f,fs,t_net_path,t_root_path
    t_net_path="\\PC_Netz\Ofen"
    t_root_path="\Storage Card MMC\Ofen"
     Set f=CreateObject("Filectl.file")
     Set fs=CreateObject("filectl.filesystem")
     
     If fs.dir(t_net_path)<> "" Then
     fs.kill t_net_path&"\werte.csv"
     
    'ist die Datei nicht vorhanden wird der fehler durch das on Error Resume Next abgefangen 
       
        fs.Filecopy t_root_path &"\werte.csv",t_net_path&"\werte.csv"
             
     End If
     
     Set fs= Nothing
    ShowSystemAlarm "Datei kopiert"
    ------------------------------------------Daten auf MMC nach Kopieren Löschen-------
    On Error Resume Next
    Dim f,fso,t_root_path
    
    t_root_path="\Storage Card MMC\Ofen\Werte.csv
    Set fso=CreateObject("filectl.filesystem")
    
    If fso.dir(t_root_path)<>"" Then fso.Kill t_root_path
     
    Set fso= Nothing
    ShowSystemAlarm "Datei gelöscht"

Ähnliche Themen

  1. Files löschen älter als 30 tage mit VB Script
    Von spsbändiger im Forum Hochsprachen - OPC
    Antworten: 6
    Letzter Beitrag: 19.05.2016, 18:09
  2. Antworten: 4
    Letzter Beitrag: 07.12.2012, 09:34
  3. Antworten: 0
    Letzter Beitrag: 21.09.2012, 15:14
  4. WinCC flex Script/Archiv
    Von Wowa05 im Forum HMI
    Antworten: 4
    Letzter Beitrag: 26.05.2010, 15:00
  5. mp270 Script; Archiv auswerten
    Von volker im Forum HMI
    Antworten: 3
    Letzter Beitrag: 26.05.2005, 12:37

Lesezeichen

Berechtigungen

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