per vba möchte ich ein Haupt-Verzeichnis erstellen, falls dieses noch nicht existiert.
In diesem Ordner werden weitere Unterordner erstellt (auch wieder nur dann, wenn es diese noch nicht gibt).
Diese mit meinem Script (siehe unten) erstellten Verzeichnisse zeigen ein seltsames Verhalten.
- beim ersten Durchlauf werden die Ordern erstellt. Im Explorer kann ich diese auch wieder manuell löschen (rechte Maustaste auf das Hauptverzeichnis - löschen - alles weg).
- wenn ich dieses Makro aber ein zweites Mal starte (ohne nach dem ersten Durchlauf die neu erstellten Ordner manuell zu löschen), lässt dich das Haupt-Verzeichnis nicht mehr löschen.
Hier kommt die Meldung:
"Verzeichnis kann nicht gelöscht werden ... wird von einem anderen Programm verwendet..."
Wenn ich dann Excel schließe, klappt's wieder - also irgendwo ist da ein Fehler in meinem Makro.
Hat Jemnad 'ne Idee?
WinXP, Office 2003
vielen Dank vorab,
Christian
Option Explicit
Sub CreateFolders()
Dim blnDir As Boolean
Dim strMainDir As String, strSubDir As String, strMsg As String
Dim i As Long, lngCnt As Long
strMainDir = ThisWorkbook.Path & "\TestVerzeichnis"
'Hauptverzeichnis erstellen
If Dir(strMainDir, vbDirectory) = "" Then
MkDir strMainDir
blnDir = True
End If
'Unterverzeichnisse erstellen
For i = 1 To 3
strSubDir = strMainDir & "\" & i
If Dir(strSubDir, vbDirectory) = "" Then
MkDir strSubDir
lngCnt = lngCnt + 1
End If
Next
If blnDir Then
strMsg = "Hauptverzeichnis " & strMainDir & " erstellt" & vbLf & vbLf
End If
strMsg = strMsg & "es wurden " & lngCnt & " Unterverzeichnisse erstellt"
MsgBox strMsg
End Sub