Hallo zusammen,
könnte ihr mir bitte mal bei folgendem Problem helfen?
Mit nachfolgendem VBA Code möchte ich einen Ordner erstellen, dessen Pfad in der Variable Pfad_Ordner_global gespeichert ist.
Wenn der Ordner bereits existiert, soll dieser ohne Hinweis oder Abfrage inkl. Inhalt gelöscht und mit dem selben Namen neu erstellt werden.
Das Makro funktionier einwandfrei, wenn es den Ordner noch nicht gibt. Existiert dieser schon, bricht das Mako sporadisch (!) bei Ausführung des Befehls MkDir Pfad_Ordner_global mit der Fehlermeldung "VBA Fehler beim Zugriff auf Pfad/Datei" ab. Führe ich das Makro anschließend erneut aus, funktioniert wieder alles.
Mit der For Next Schleife habe ich versucht, die Zeit zwischen Löschen des bereits vorhandenen Ordner und der Neuerstellung dessen zu verzögern, allerdings ohne Erfolg.
Nun bin ich überfragt...habt ihr eine Lösung bzw. den Grund, weswegen manchmal ein Abbruch erfolgt?
Sub BestellOrdnerErzeugen()
'Variablendimensionierung
Dim objFSO As Object
Dim i As Long
'Objekterstellung
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Prüfen, ob der anzulegende Bestellordner bereits existiert und diesen ggf. löschen und/oder neu erstellen
If Dir(Pfad_Ordner_global, vbDirectory) > "" Then
On Error GoTo Hinweis
objFSO.DeleteFolder Pfad_Ordner_global
On Error GoTo 0
End If
For i = 1 To 10000
DoEvents
Next i
MkDir Pfad_Ordner_global
'Ressourcenfreigabe
Set objFSO = Nothing
Exit Sub
Hinweis:
MsgBox ("Fehler! Bitte alle offenen Dateien aus dem Bestellordner schließen und Makro erneut starten.")
End
End Sub