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.