Die Webseite rund um Microsoft Access
ACCESS LINKS PROJEKTE SHOP KONTAKT INFO
 Home          Beispiel-DBs          Funktionen          FAQs          Downloads          Newsletter          Forum        
         Tipps
Funktion PfadUndName()
Diese Funktion trennt den mitgegebenen Pfad vom Dateinamen und gibt je nach Parameter den Pfad oder den Dateinamen zurück.
Public Function PfadUndName(pfa As String, art As String)

' ---------------------------------------------------------
' Diese Funktion trennt den mitgegebenen Pfad vom
' Dateinamen und gibt je nach Parameter den Pfad oder
' den Dateinamen zurück.
' Parameter:
' Name: um den Dateinamen zurück zu geben
' Pfad: um den Pfad zurück zu geben
' ---------------------------------------------------------

Dim Nam As String
Dim merk As String
Dim t As Integer
Dim lang As Integer
Dim wo As Integer

' stelle wo pfad und DB-name zu trennen ist suchen
    merk = pfa
    lang = Len(pfa)
    For t = 0 To lang - 1
        merk = Mid(pfa, lang - t, 1)
        If merk = "" Then
            wo = lang - t
            Exit For
        End If
    Next t

    ' pfad und name trennen
    Select Case art
        Case "Name"
            PfadUndName = Right(pfa, Len(pfa) - wo)
        Case "Pfad"
            PfadUndName = Left(pfa, wo)
    End Select

End Function

Alle anzeigen




 Login | Impressum | ADMIN | Printversion

Copyright by Seitenzentrale.de