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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Mehr Datenbanken können nicht geöffnet werden :(
  • Lorenz12.05.19 19:44
       └ RE: Mehr Datenbanken können nicht geöffnet werde... Kontex13.05.19 08:40
          └ RE: Mehr Datenbanken können nicht geöffnet wer... Lorenz13.05.19 21:43
  • Crash im Editmode Access 2007
  • HansP08.05.19 20:25
       └ RE: Crash im Editmode Access 2007 PeterDoering09.05.19 12:30
          └ RE: Crash im Editmode Access 2007 HansP09.05.19 19:34
             └ RE: Crash im Editmode Access 2007 sks10.05.19 09:45
  • Access Stammtisch München am 09.05.2019 (Do)
  • StefanWirrer07.05.19 13:50
  • Problem bei ausführen der Runtime meiner Datenbank
  • DomiDi05.05.19 09:28
       └ RE: Problem bei ausführen der Runtime meiner Dat... Marzer07.05.19 11:28
  • Access Stammtisch München am 11.04.2019 (Do)
  • StefanWirrer09.04.19 14:01
  • Access Kontektmenüs
  • sks30.03.19 09:23
       └ RE: Access Kontektmenüs sks30.03.19 09:34
       └ RE: Access Kontektmenüs Karl Donaubauer31.03.19 21:52
          └ RE: Access Kontektmenüs sks01.04.19 18:44
  • Tabelle wird dupliziert!
  • lohfra21.03.19 17:29
       └ RE: Tabelle wird dupliziert! PeterDoering26.03.19 13:53
  • Hat jmd. Erfahrung mit Unterschriften Pads?
  • StefanWirrer18.03.19 10:17
  • Access Stammtisch München am 14.03.2019 (Do)
  • StefanWirrer14.03.19 07:54
  • Funktion ASC
  • Marzer13.03.19 09:42
       └ RE: Funktion ASC Marzer13.03.19 16:04
  • Laufzeitfehler 70 beim Löschen von csv Datei
  • Greiff08.03.19 15:31
       └ workaround: Laufzeitfehler 70 beim Löschen von c... Greiff08.03.19 16:14
  • nur ein Datensatz wird aktualisiert
  • Dreho5227.02.19 14:53
       └ RE: nur ein Datensatz wird aktualisiert Karl Donaubauer27.02.19 18:15
          └ RE: nur ein Datensatz wird aktualisiert Dreho5227.02.19 18:49
             └ RE: nur ein Datensatz wird aktualisiert Karl Donaubauer28.02.19 19:23
  • Neues Verzeichnis anlagen
  • Dreho5224.02.19 12:36
       └ RE: Neues Verzeichnis anlagen Karl Donaubauer25.02.19 09:11
       └ RE: Neues Verzeichnis anlagen sks26.02.19 09:23
  • Dokumentenpfad
  • Dreho5223.02.19 12:03
       └ RE: Dokumentenpfad PeterDoering23.02.19 23:27
  • update aus csv Datei
  • Greiff18.02.19 13:44
       └ RE: update aus csv Datei PeterDoering18.02.19 14:11
          └ RE: update aus csv Datei Greiff18.02.19 14:25
             └ RE: update aus csv Datei Greiff18.02.19 14:27
             └ RE: update aus csv Datei PeterDoering22.02.19 11:50
                └ RE: update aus csv Datei Greiff23.02.19 01:17
    sks
    Gesendet: 26.02.19 09:23
    Betreff: RE: Neues Verzeichnis anlagen


    Veteran

    Beiträge: 112
    100
    Ich verwende dafür folgende Funktion :

    'Verschachtelte Verzeichnisse erstellen
    Public Function MakePath(ByVal spath As String, Optional ByVal ShowMsg As Variant) As Boolean

    Dim Antwort As Integer
    Dim dummy As String

    If IsMissing(ShowMsg) Then ShowMsg = False

    Antwort = 0: Err = 0
    dummy = ""
    On Local Error Resume Next
    While Len(spath) > 0 And Antwort = 0
    If Left$(spath, 2) = "\\" Then
    dummy = dummy + "\\"
    spath = Mid$(spath, 3)
    ElseIf Left$(spath, 1) = "\" Then
    dummy = dummy + "\"
    spath = Mid$(spath, 2)
    ElseIf Mid$(spath, 2, 2) = ":\" Then
    dummy = dummy + Left$(spath, 3)
    spath = Mid$(spath, 4)
    End If
    While Left$(spath, 1) <> "\" And Len(spath) > 0
    dummy = dummy + Left$(spath, 1)
    spath = Mid$(spath, 2)
    Wend
    Err = 0
    MkDir dummy
    If Err <> 75 And Err <> 0 Then
    If ShowMsg Then
    Antwort = MsgBox("Fehler beim Erstellen des Verzeichnisses!" + vbCrLf + 48, "Fehler")
    Else
    Antwort = 1
    End If
    End If
    Wend
    On Local Error GoTo 0

    MakePath = (Antwort = 0)

    End Function
    Top of the page Bottom of the page


    Seite: < 14 15 16 17 18 19 ... 20 21 22 23 24 25 26 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)