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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • 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
  • Public String in FormularTitel einfügen
  • Dreho5217.02.19 12:53
       └ RE: Public String in FormularTitel einfügen Marzer18.02.19 05:46
          └ RE: Public String in FormularTitel einfügen PeterDoering18.02.19 14:09
             └ RE: Public String in FormularTitel einfügen Marzer19.02.19 08:24
                └ RE: Public String in FormularTitel einfügen PeterDoering22.02.19 15:40
  • Wenn Wert = 1 im UFO dann Bericht Druck
  • Reiti201919.02.19 13:30
       └ RE: Wenn Wert = 1 im UFO dann Bericht Druck Marzer20.02.19 09:07
          └ RE: Wenn Wert = 1 im UFO dann Bericht Druck Reiti201920.02.19 17:40
             └ RE: Wenn Wert = 1 im UFO dann Bericht Druck Marzer22.02.19 09:49
  • DatumsFeld in Endlosformular aktualiseren
  • Dreho5220.02.19 12:19
       └ RE: DatumsFeld in Endlosformular aktualiseren Marzer20.02.19 14:07
  • Filterfehler abfangen
  • Dreho5219.02.19 12:13
       └ RE: Filterfehler abfangen Marzer20.02.19 08:51
  • Konstanten
  • Dreho5213.02.19 12:16
       └ RE: Konstanten PeterDoering13.02.19 15:25
       └ RE: Konstanten Karl Donaubauer13.02.19 21:22
  • Einladung zum 34. Access-Stammtisch Hannover am 27...
  • KlausWerther13.02.19 12:26
  • Datensatz löschen
  • Dreho5211.02.19 10:39
       └ RE: Datensatz löschen PeterDoering11.02.19 11:46
       └ RE: Datensatz löschen Dreho5211.02.19 13:22
          └ RE: Datensatz löschen Marzer11.02.19 15:20
             └ RE: Datensatz löschen PeterDoering12.02.19 16:12
  • Access Stammtisch München am 14.02.2019 (Do)
  • StefanWirrer12.02.19 13:16
  • Nur auf Datensatzmarkier springen erlaubt
  • Dreho5210.02.19 16:54
       └ RE: Nur auf Datensatzmarkier springen erlaubt PeterDoering10.02.19 20:00
    sks
    Gesendet: 26.02.19 09:23
    Betreff: RE: Neues Verzeichnis anlagen


    Veteran

    Beiträge: 132
    10025
    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: < 19 20 21 22 23 24 ... 25 26 27 28 29 30 31 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)