Nehmen Sie an, Sie wollen nur den Verzeichnisnamen
��� einer kompletten Pfadangabe ermitteln.
��� Hierzu habe ich 4 kleine Funktionen,
��� die im einzelnen folgendes bewirken:

��� 1. Laufwerksbuchstaben extrahieren
��� 2. Verzeichnisname extrahieren
��� 3. Dateiname extrahieren
��� 4. Dateiextension extrahieren

�

   'Laufwerksbuchstaben extrahieren
   Function Laufwerksbuchstabe(Pfad As String)
      Laufwerksbuchstabe = Mid(Pfad, 1, 1) & ":\"
   End Function

   'Verzeichnisname extrahieren
   Function Verzeichnisname(Pfad As String)
      If InStr(Pfad, "\") Then
         For x = Len(Pfad) To 1 Step -1
            If Mid(Pfad, x, 1) = "\" Then
               s = Left(Pfad, x)
               Exit For
            End If
         Next x
      ElseIf InStr(Pfad, ":") = 2 Then
         s = CurDir(Pfad)
         If Len(s) = 0 Then
            s = CurDir
      End If
      Else
         s = CurDir
      End If
      Verzeichnisname = s
   End Function

   'Dateiname extrahieren
   Function Dateiname(Pfad As String)
      If InStr(Pfad, "\") Then
         For x = Len(Pfad) To 1 Step -1
            If Mid(Pfad, x, 1) = "\" Then
               s = Mid(Pfad, x + 1)
               Exit For
            End If
         Next x
      ElseIf InStr(Pfad, ":") = 2 Then
         s = Mid(Pfad, 3)
      Else
         s = Pfad
      End If
      Dateiname = s
   End Function

   'Dateiextension extrahieren
   Function Dateiextension(Pfad As String)
      chrs = InStr(Pfad, ".")
      If chrs Then
         s = Mid(Pfad, chrs + 1)
      Else
         s = ""
      End If
      Dateiextension = s
   End Function

   Pfad="C:\DATEN\VB\LIESMICH.TXT"

'Pfad festlegen

   s1=Laufwerksbuchstabe(Pfad)

'gibt "C:\" zur�ck

   s2=Verzeichnisname(Pfad)

'gibt "C:\DATEN\VB" zur�ck

   s3=Dateiname(Pfad)

'gibt "LIESMICH.TXT" zur�ck

   s4=Dateiextension(Pfad)

'gibt "TXT" zur�ck

�

�