![](/forum/profile/get-photo.asp?memberid=27&type=profile&rnd=376) Elite Veteran
Beiträge: 860
![500](http://www.donkarl.com/forum/images/decorations/multiple/500.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) Ort: Wien | Hallo, Andreas!
AccessNeuling - 20.08.18
Bisher habe ich in unserer DB Unterordner über folgenden VBA Code angelegt. Das Problem ist nur der Ordner ist mittlerweile so groß das es Minuten dauert bis ein Ordner angelegt wird.
...
Zukünftig möchte ich die Ordner wie folgt anlegen lassen.
Ordner mit Name des Auftrags ist vorhanden dann Unterordner anlegen. Bedeutet es muss geprüft werden ist der Ordner des Auftrags vorhanden falls ja Unterordner anlegen falls nicht Auftragsordner anlegen und dann die Unterordner.
Alle Aufträge habe eine ID und einen txt Auftrag...
...
Wäre das nicht einfach sowas?
strpfad = "\\Pfadangabe\" & Me!txt_Auftrag
If Dir(strpfad, vbDirectory) = "" Then
MkDir strpfad
strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr]
MkDir strpfad
strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr] & "\Messblatt"
MkDir strpfad
strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr] & "\Prüfprotokoll"
MkDir strpfad
strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr] & "\Übergabe und interne Unterlagen"
MkDir strpfad
strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr] & "\Unterbaugruppen"
MkDir strpfad
Else
strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr]
If Not Exist_Ordner(strpfad) Then
Create_Ordner (strpfad)
End If
strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr] & "\Messblatt"
If Not Exist_Ordner(strpfad) Then
Create_Ordner (strpfad)
End If
strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr] & "\Prüfprotokoll"
If Not Exist_Ordner(strpfad) Then
Create_Ordner (strpfad)
End If
strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr] & "\Übergabe und interne Unterlagen"
If Not Exist_Ordner(strpfad) Then
Create_Ordner (strpfad)
End If
strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr] & "\Unterbaugruppen"
If Not Exist_Ordner(strpfad) Then
Create_Ordner (strpfad)
End If
End If
Wobei der Else-Teil davon ausgeht, dass deine Prozeduren Exist_Ordner und Create_Ordner einfache Dir-Prüfungen und MKDir-Befehle ausführen. Wie man im If-Teil sieht, lohnen sich für solche Einzeiler aber kaum eigene Prozeduren.
----- Servus
Karl
*********
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |