Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Access Stammtisch München am 13.09.2018 (Do)
  • StefanWirrer11.09.18 15:01
  • Windows 10 und Access 2016
  • Marzer24.08.18 16:35
       └ RE: Windows 10 und Access 2016 PeterDoering25.08.18 16:26
  • Unterordner in bestehende Ordner Anlegen
  • AccessNeuling20.08.18 11:58
       └ RE: Unterordner in bestehende Ordner Anlegen<... Karl Donaubauer21.08.18 15:39
  • URL in Textbox mit Rich-Text-Format
  • Marzer14.08.18 18:07
  • Einladung zum 32. Access-Stammtisch Hannover am 15...
  • KlausWerther14.08.18 10:21
  • Access Stammtisch München am 09.08.2018 (Do)
  • StefanWirrer07.08.18 14:49
  • Access-Stammtisch Rhein-Main
  • Martin Asal31.07.18 13:37
  • zip und verschlüsseln
  • Greiff31.05.18 14:56
       └ RE: zip und verschlüsseln PeterDoering31.05.18 15:32
       └ RE: zip und verschlüsseln wilo05.06.18 17:23
       └ gelöst: zip und verschlüsseln Greiff25.07.18 15:32
  • Access Stammtisch München am 12.07.2018 (Do)
  • StefanWirrer11.07.18 13:04
  • Undefinierte Funktion (Fehler 3085)
  • sks29.06.18 17:17
       └ RE: Undefinierte Funktion (Fehler 3085) PeterDoering04.07.18 09:49
          └ RE: Undefinierte Funktion (Fehler 3085) sks04.07.18 12:24
             └ Microsoft Desktop Apps sks10.07.18 06:12
  • sendobject nicht verfügbar
  • Greiff18.06.18 15:24
       └ RE: sendobject nicht verfügbar Marzer19.06.18 21:02
          └ RE: sendobject nicht verfügbar Greiff20.06.18 15:40
       └ RE: sendobject nicht verfügbar Greiff09.07.18 20:00
  • mehrere Primärschlüssel
  • fraloh09.07.18 17:46
       └ RE: mehrere Primärschlüssel PeterDoering09.07.18 18:44
          └ RE: mehrere Primärschlüssel fraloh09.07.18 18:59
  • Änderung in der Syntax von XPath
  • Marzer25.06.18 10:47
       └ RE: Änderung in der Syntax von XPath PeterDoering04.07.18 09:50
  • Eine Beobachtung, keine Fehlermeldung.
  • Marzer16.06.18 16:38
  • Suche Eingabeproblem
  • Greiff08.06.18 14:05
       └ RE: Suche Eingabeproblem Karl Donaubauer08.06.18 17:51
          └ RE: Suche Eingabeproblem Greiff11.06.18 08:39
             └ RE: Suche Eingabeproblem Karl Donaubauer11.06.18 16:01
                └ gelöst Eingabeproblem Greiff11.06.18 16:54
                   └ RE: gelöst Eingabeproblem Karl Donaubauer11.06.18 17:04
                      └ RE: gelöst Eingabeproblem: sich ändern... Greiff12.06.18 09:15
       └ RE: Suche Eingabeproblem PeterDoering11.06.18 08:31
          └ RE: Suche Eingabeproblem Greiff11.06.18 13:08
    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


    Seite: < 20 21 22 23 24 25 ... 26 27 28 29 30 31 32 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)