Ich habe den Code mal verkürzt um es nicht zu unübersichtlich zu machen.
Schreiben: Es geht um SmartTags("Speichern Sorte 1")
'Dimensionieren
Dim fo, fs,datei, semi, ordner1,ordner2, ordner3
Dim tag, monat, monat_aktuell, monat_davor, monatsname, jahr, datum
semi = ";"
tag = Day(Now)
datum = Date
tag = Day(Now)
monat = Month(Now)
monatsname = MonthName(monat,False)
jahr = Year(Now)
ordner1 = "\Storage Card SD\Tagesmenge"
ordner2 = "\Storage Card SD\Tagesmenge\" & jahr
ordner3 = "\Storage Card SD\Tagesmenge\" & jahr & "\" & monatsname
datei = "\Storage Card SD\Tagesmenge\" & jahr & "\" & monatsname & "\" & datum & ".csv"
'Starten der Fehlerroutine
On Error Resume Next
'Create a file object - Datei Objekt erstellen
Set fo= CreateObject("FileCtl.File")
'Auf Fehler prüfen
If Err.Number<> 0 Then
ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description
Err.Clear
Exit Sub
End If
'Ordner Objekt erstellen
Set fs = CreateObject("filectl.filesystem")
'Auf Fehler prüfen
If Err.Number<> 0 Then
ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description
Err.Clear
Exit Sub
End If
'Überpüfen ob Ordner1 exestiert, wenn nicht -> Ordner erstellen
If fs.dir(ordner1) = "" Then
fs.mkdir(ordner1)
End If
'Überpüfen ob Ordner2 exestiert, wenn nicht -> Ordner erstellen
If fs.dir(ordner2) = "" Then
fs.mkdir(ordner2)
End If
'Überpüfen ob Ordner3 exestiert, wenn nicht -> Ordner erstellen
If fs.dir(ordner3) = "" Then
fs.mkdir(ordner3)
End If
'Öffnen bzw. Erstellen einer Datei
fo.open datei,2
fo.LinePrint "Nr.1 " & semi & SmartTags("Speichern Sorte 1")
'Datei wird geschlossen
fo.Close
'Objekt wird freigegeben
Set fo = Nothing
Lesen: Es geht um SmartTags("Lesen Tag Sorte 1") = splitdata(1)
Dim fo, fs,datei,ordner
Dim tag, monat, monat_aktuell, monat_davor, monatsname, jahr, datum, monatsspeicher, tagspeicher
Dim mode, i
Dim data, splitdata, semi
'Initialization of Tags - Initialisierung von Variablen
mode=1 '1 = Input
semi = ";"
jahr = SmartTags("Lesen Auswahl Jahr")
monatsspeicher = SmartTags("Lesen Auswahl Monat")
monatsname = MonthName(monatsspeicher,False)
tagspeicher = SmartTags("Lesen Auswahl Tag")
'Please replace all sequences which are enclosed with '_' by your own code.
If tagspeicher < 10 Then
tag = "0" & tagspeicher
Else
tag = tagspeicher
End If
'Please replace all sequences which are enclosed with '_' by your own code.
If monatsspeicher < 10 Then
monat = "0" & monatsspeicher
Else
monat = monatsspeicher
End If
datum = tag & "." & monat & "." & jahr
ordner = "\Storage Card SD\Tagesmenge\" & jahr & "\" & monatsname & "\" & datum & ".csv"
'Starting error routine - Starten der Fehlerroutine
On Error Resume Next
'Create a file object - Datei Objekt erstellen
Set fo= CreateObject("FileCtl.File")
'Check if any errors happend - Auf Fehler prüfen
If Err.Number<> 0 Then
ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description
Err.Clear
Exit Sub
End If
'Open or creat a file - Öffnen bzw. Erstellen einer Datei
fo.open ordner,mode
'Check if any errors happend - Auf Fehler prüfen
If Err.Number<> 0 Then
ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description
SmartTags("Lesen Ereignis") = 1
Err.Clear
Exit Sub
End If
'Read data from file - Daten werden aus Datein gelesen, die ersten Zeilen irrelevant
For i=1 To 5
data = fo.LineInputString
Next
data = fo.LineInputString
splitdata=Split(data,semi)
SmartTags("Lesen Tag Sorte 1") = splitdata(1)
'Close the file - Datei wird geschlossen
fo.Close
'Release the Object - Objekt wird freigegeben
Set fo = Nothing
