Dateipfad der Datenbank zerlegen (Access 97, 2000)

30.12.2003

Dateinamen in einen Pfad und den eigentlichen Dateinamen zerlegen.

Bei der Arbeit mit Dateien muß ein Dateiname oft in einen Pfad und den eigentlichen Dateinamen zerlegt werden.

Diese Zerlegung des Dateinamens erleichtert die Prozedur DateinameZerlegen.

Die Prozedur hat den folgenden Aufbau:

Sub DateinameZerlegen(PfadName As String, Pfad As String, Name As String)

    Dim pos As Integer
    Dim i As Integer
    pos = -1

    'Backslash suchen
    For i = Len(PfadName) To 1 Step -1
        If Mid(PfadName, i, 1) = "\" Then pos = i
            Exit For
        End If
    Next i

    'Zerlegen
    If pos <> -1 Then
        Pfad = Left(PfadName, pos - 1) Name = Right(PfadName, Len(PfadName) - pos)
    Else
        Name = PfadName
    End If

End Sub

Beim Start übergeben Sie der Prozedur den kompletten Namen der Datei inklusive dem Pfad. Außerdem übergeben Sie zwei leere Variablen, die anschließend das Ergebnis aufnehmen.

Dienstleistungen

Als starker Partner an Ihrer Seite unterstützen wir Sie in folgenden Breichen:

Access-Programmierung

Benötigen Sie Unterstützung bei der Programmierung von Access-Anwendungen? Wir bieten die gesamte Bandbreite von der Access-Programmierung auf Stundenbasis bis zur Durchführung eines Software-Projektes als Auftragsarbeit an. Kontaktieren Sie uns für ein kostenloses Erstgespräch.

Software-Beratung

Haben Sie ein Software-Projekt und Sie wissen nicht, ob Access die richtige Plattform ist? Wir haben über 20 Jahre Erfahrung beim Erstellen von Windows-, Web und mobilen Anwendungen. Kontaktieren Sie uns für eine kostenlose Erstberatung.