Script Archiv löschen

[ka1978]

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"

 

[PN/DP]

[COLOR="#008000"]' Sub FileDel(Path) löscht eine Datei
' Skript kann unter OP-WinCE und PC-Windows laufen
'[/COLOR]
[COLOR="#0000FF"]Dim[/COLOR] fso
[COLOR="#0000FF"]If[/COLOR] SmartTags("_System\!_RT-Sim_!") Then [COLOR="#008000"]'PC-Windows[/COLOR]
	[COLOR="#0000FF"]Set[/COLOR] fso = [COLOR="#0000FF"]CreateObject[/COLOR]("Scripting.FileSystemObject")
	[COLOR="#0000FF"]If[/COLOR] fso.FileExists(Path) [COLOR="#0000FF"]Then[/COLOR] fso.DeleteFile Path
[COLOR="#0000FF"]Else[/COLOR] [COLOR="#008000"]'WinCE[/COLOR]
	[COLOR="#0000FF"]Set[/COLOR] fso = CreateObject("FileCtl.FileSystem")
	[COLOR="#0000FF"]If[/COLOR] fso.Dir(Path) <> "" [COLOR="#0000FF"]Then[/COLOR] fso.Kill Path
[COLOR="#0000FF"]End If[/COLOR]

Harald

 

[PN/DP]

Zuviel Werbung?
-> Hier kostenlos registrieren

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

 

[ka1978]

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 .

----------------------------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="[URL="file://\\PC_Netz\Ofen"]\\PC_Netz\Ofen[/URL]"
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"