aleXandroW
Level-2
- Beiträge
- 59
- Reaktionspunkte
- 0
-> Hier kostenlos registrieren
Hallo,
ich möchte einen Ordner mit Unterordner erstellen und dort Eine CSV Datei. Es klappt auch fast. Beim ausführen des Scriptes erstellt er die Ordner aber es kommt der Fehler " Fehler 53 die Datei wurde nicht gefunden". Wenn ich das Script das zweite mal ausführe ist alles in Ordnung.
Code:
Wo ist der Fehler?
Danke für die Hilfe
ich möchte einen Ordner mit Unterordner erstellen und dort Eine CSV Datei. Es klappt auch fast. Beim ausführen des Scriptes erstellt er die Ordner aber es kommt der Fehler " Fehler 53 die Datei wurde nicht gefunden". Wenn ich das Script das zweite mal ausführe ist alles in Ordnung.
Code:
Code:
jahr = Year(Now)
monat = MonthName(Month(Now))
ordner = "C:\Users\HundH\Documents\Tagesverbrauch" & jahr & "" & monat
datei="C:\Users\HundH\Documents\Tagesverbrauch" & jahr & "" & monat & "" & Date & ".csv"
'Catch errors -- Fehler abfangen
On Error Resume Next
'Create object -- Objekt erstellen
Set fso = CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
' If no Folder exists, create a new one -– Ordner erstellen, wenn keines vorhanden
If Not fso.FolderExists(ordner) Then
'fso.CreateFolder ordner
Set objShell = CreateObject("WScript.Shell")
objShell.Run("cmd.exe /C mkdir " & ordner )
End If
' If no file exists, create a new one -– Datei erstellen, wenn keine vorhanden
If Not fso.FileExists(datei) Then
fso.CreateTextFile datei
End If
Set f = fso.GetFile(datei)
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
Set ts = f.OpenAsTextStream(2, -2)
' mode "8" to append to file
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
Wo ist der Fehler?
Danke für die Hilfe
Zuletzt bearbeitet: