Unterordner in bestehende Ordner Anlegen
Karl Donaubauer
Gesendet: 21.08.18 15:39
Betreff: RE: Unterordner in bestehende Ordner Anlegen



Elite Veteran

Beiträge: 847
50010010010025
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
*********
https://www.donkarl.com/devcon Access-Online-Konferenz 18.+19.4.
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy...
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Top of the page Bottom of the page