 Pfadangabe
aufsplitten
Nachfolgend eine komfortable Lösung zum Aufsplitten von Pfad- oder Verzeichnisangaben
unter VBA. Die Funktion wurde von Marc Niemann zur Verfügung gestellt.
Vielen dank Marc.
Beim Funktionsauf kann man folgende Schalter (Switch) übergeben: drive,
path, filename, filebody und extension. Übergibt man als Parameter FilePath
den String "D:\work\doku\brief.txt", so kann man mit Hilfe des Parameters
Switch folgende Rückgabestrings erhalten:
Switch="drive" --> "D:"
Switch="path" --> "D:\work\doku\"
Switch="filename" --> "brief.txt"
Switch="filebody" --> "brief"
Switch="extension" --> "txt"
Entspricht der Switch keinem der angegebnen Strings, so wird als default der
Filename zurückgegeben.
| Code: |
Public Function SplitFilePath(FilePath, Switch)
'-------------------------------------------------------
' Zerlegt den String FilePath und gibt je nach Switch
' einen Teilstring davon zurück.
' Switch = "drive"
' --> Gibt das Laufwerk zurück z.B. "D:"
' Switch = "path"
' --> Gibt den Pfad zurück z.B. "D:\work\doku\"
' Switch = "filename"
' --> Gibt den Dateinamen zurück z.B. "brief.txt"
' Switch = "filebody"
' --> Gibt den Dateinamen ohne extension zurück
' Switch = "extension
' --> Gibt die Dateierweiterung zurück z.B. "txt"
' Eine Funktion von Marc Niemann.
'--------------------------------------------------------
Dim abl as String
Dim drv as String
Dim pth as String
Dim FN as String
Dim Ext as String
Dim FB As String
Dim pos As Integer
Dim lsp As Integer
pos = 1
abl = FilePath
'Drive ermitteln
lsp = InStr(pos, FilePath, ":")
If lsp > 0 Then drv = Left(FilePath, lsp) Else drv = ""
'Path und Filename ermitteln
Do
lsp = InStr(pos, abl, "\")
If lsp > 0 Then
pth = pth & Left(abl, lsp)
abl = Right(abl, Len(abl) - lsp)
FN = abl
Else
FN = abl
End If
Loop Until lsp = 0
'Dateierweiterung ermitteln
lsp = InStr(1, FN, ".")
If lsp > 0 Then Ext = Right(FN, Len(FN) - lsp) Else Ext = ""
'Filebody ermitteln
If lsp > 0 Then FB = Left(FN, InStr(1, FN, Ext) - 2) Else FB = FN
Select Case LCase(Switch)
Case "drive"
SplitFilePath = drv
Case "path"
SplitFilePath = pth
Case "extension"
SplitFilePath = Ext
Case "filebody"
SplitFilePath = FB
Case Else
SplitFilePath = FN
End Select
End Function
|
Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden
Sie auf unserer AP-Access-Tools
 Vol.1
| | | | 
 |
Auf der AP-Access-Tools Vol.1 finden Sie weitere 320
Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode!
Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler
256 Access-Beispiele mit offenem Code
45 Add-Ins und ActiveX-Komponenten (Freeware)
16 VB-Projekt inkl. Source
321 Tipps & Tricks für Access und VB
Plus 11 Entwicklerversionen (9 davon mit Source!)
Plus 3 Vollversionen und
Plus riesiger Datenpool
Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95! |
| | | |
|
| 
» Newsletter
