Hallo zusammen,
ich möchte in einer VBA-Prozedur prüfen, ob ein Verzeichnis existiert, wenn ja den Inhalt löschen und wenn nicht es erstellen. Es soll das Arbeitsverzeichnis für den nachfolgenden Code sein.
...
workingdir = "H:\0_Aktuelles\Rohdaten_AZ\working\"
If Dir(workingdir, vbDirectory) <> "" Then ' Das Verzeichnis existiert bereits
ChDir workingdir
Kill "*.txt"
Else
MkDir workingdir
End If
...
Bei der "Kill"-Anweisung beschwert sich Excel, dass es "die Datei nicht finden kann". Nun sind manchmal keine Dateien darin, manchmal aber schon. Er beschwert sich auch, wenn eine Textdatei drin liegt.
Weiß jemand vielleicht Rat?
Vielen Dank
Dietrich