WinCC Flex. Daten per VBS ins Netzwerk kopieren

[Feldmann]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo,

folgendes Skript versuche ich ans Laufen zu bekommen.

Meldung: "The system cannot move the file."

Wo liegt der fehler?

 

[Larry Laffer]

Hallo,
also erstmal hat SevenBit da ja was von FileCopy geschrieben - ich würde vom Verständnis des Sachverhalts auch erstmal dazu tendieren. Und dann ... würdest du bitte meine Frage aus Beitrag #20 beantworten ?

Gruß
Larry

 

[Feldmann]

Zuviel Werbung?
-> Hier kostenlos registrieren

aber gerne, der Zielordner ist bis auf eine Datei, die nicht diesen Namen hat, komplett leer.

und es macht keinen unterschied, ob ich filecopy oder movefile nehme. es geht nicht.

 

[Larry Laffer]

... und was ist mit FileCopy ? Was bekommst du da für eine Meldung ?

 

[Feldmann]

wieder die mit der Zugriffsverweigerung.

Habe mein skript etwas geändert

If fs.dir(Ablageordner) <> "" Then
ShowSystemAlarm "Ablagedatei: " & Ablagedatei

'ShowSystemAlarm "Zieldatei: " & Zielort
If fs.dir(Zielort) <> "" Then
fs.kill(Zielort)
ElseIf fs.dir(Zielort) = "" Then
fs.mkdir(Zielort)
fs.filecopy Ablageordner, Zielort
End If
End If

der Zielordner wird erstellt. aber kopiert wird nicht. Wieder "Access is denied"

 

[Larry Laffer]

Zuviel Werbung?
-> Hier kostenlos registrieren

Also dann im Einzelnen :
Was ist der exakte Inhalt von "Ablageordner" und "Zielort" ?
Endet Zielort mit einem "\" ?
Beinhaltet Ablageordner den Dateinamen ganz oder teilweise ?

Gruß
Larry

 

[Feldmann]

For a = Jahr - 1 To Jahr
For d = 0 To 365


Dateiname = "Anlage_" & a & "_" & d
ergibt: "Anlage_10_263"
Ablageordner = "\Storage Card MMC\" & Dateiname
ergibt: "\Storage Card MMC\Anlage_10_263"
Ablagedatei = Ablageordner & "\" & Dateiname & ".csv"
ergibt: "\Storage Card MMC\Anlage_10_263\Anlage_10_263.csv"
Zielort = "\\Notebook23\Protokoll\" & Dateiname
ergibt: "\\Notebook23\Protokoll\Anlage_10_263"
Zieldatei = Zielort & "\" & Dateiname & ".csv"
ergibt: "\\Notebook23\Protokoll\Anlage_10_263\Anlage_10_263.csv"

If fs.dir(Ablageordner) <> "" Then
hier überprüfe ich, ob der Quellordner (damit die Datei) vorhanden ist
If fs.dir(Zielort) <> "" Then
hier überprüfe ich, ob am Ziel bereits die Datei vorhanden ist
fs.kill(Zieldatei)
wenn ja, dann löschen
ElseIf fs.dir(Zielort) = "" Then
fs.mkdir(Zielort)
wenn nein, dann Ordner erstellen
fs.Movefile Ablagedatei, Zielort
und dann die Datei kopieren/verschieben
End If

ShowSystemAlarm (Err.Description)
End If
Next
Next

Mit dem Verschieben hab ich den Vorteil, dass ich danach nicht löschen muss. Das soll später voll automatisch in der Anlage laufen. Wenn Netzwerk vorhanden und Daten senden = True, dann Datei verschieben und gut ist die Sache.

Nur habe ich halt das Problem mit dem Zugriff.

 

[Larry Laffer]

OK ... dann weiter ...
das Ziel "\\Notebook_23" ist im Netzwerk zu erreichen ? - Ach ... das ist Blödsinn ... du hast ja geschrieben, dass du das Zielverzeichnis erzeugen kannst.
Hast du volle Zugriffsrechte darauf ? Also "Read, Write, Modify, Create" etc. ?

In deinem vorletzen Beitrag kopierst du den Ablageordner und nicht die Ablagedatei - war das ein Schreibfehler oder ist das ggf. wirklich so ? Sowohl MoveFile wie auch CopyFile wollen m.E. mit einer datei arbeiten und nicht mit einem Ordner ...

Gruß
Larry

 

[Feldmann]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo,

du hast recht, es ist mir auch aufgefallen.

Scheinbar geht es jetzt. Ich habe es heute noch 2 oder 3 mal probiert. ich teste das morgen noch mal ausgiebig.

Aber 1000 Dank!!!!!

Manchmal hilft es, wenn man drüber spricht...

 

[Feldmann]

Moin Larry,

ich habe es jetzt so gemacht, dass ich die Daten auf der MMC in einen Ordner schreibe.
Beim Senden suche ich den Ordner und schiebe die Datei auf mein Notebook.

Jetzt brauche ich den Ornder nicht mehr. Wenn ich mit fs.kill("\Storage Card MMC\Ordner") den Ordner löschen will, dann zeigt mir das Panel an, dass der Zugriff verweigert wird.

For A = Jahr - 1 To Jahr
For d = 0 To 365

Dateiname = "Anlage_" & A & "_" & d

If Dateiname <> "Anlage_" & A & "_" & Jahrestag Then
die akutelle datei finden und dann rest überspringen
Ablageordner = "\Storage Card MMC\" & Dateiname
Ablagedatei = Ablageordner & "\" & Dateiname & ".csv"
'ShowSystemAlarm Ablagedatei
Zieldatei = "\\Notebook23\Protokoll\"

If fs.dir(Ablageordner) <> "" Then
fs.MoveFile Ablagedatei, Zieldatei & Dateiname & ".csv"
SmartTags("DB Allgemein.Letztes_Senden_Tag") = Jahrestag
ShowSystemAlarm "Datenübertragung erfolgreich"
'fs.kill(Ablageordner) Funzt nicht!!
End If
ShowSystemAlarm (Err.Description)
End If
Next
Next

vielleicht kannst du mir hier auch noch weiterhelfen

 

[Feldmann]

Moin,

hat sich erledigt. ICh schreibe die Dateien jetzt direkt in das Verzeichnis Storage Card MMC.
Mit movefile ist die datei dann weg.

es klappt.

 

[Larry Laffer]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo,
schön, wenn es nun funktioniert ...

'fs.kill(Ablageordner) Funzt nicht!!
...
vielleicht kannst du mir hier auch noch weiterhelfen

Ich denke, dass das hier auch funktionieren würde, wenn du eine Datei und nicht einen Ordner "killen" würdest. Ohne es jetzt nachgesehen zu haben ... aber ich vermute, das der Ordner mit RmDir oder ähnlich gelöscht werden kann ...

Gruß
Larry