| Startseite > Tipps & Tricks > Wizhook-Objekt > SplitPath |
|
|
|
|
SplitPathSplitPath
Diese Funktion ist in folgenden Access-Versionen verfügbar: 2000, 2002, 2003, 2007, 2010
Zerlegt einen Dateipfad in die Bestandteile Laufwerk, Verzeichnis, Dateiname und -endung
Sub SplitPath(Path As String, Drive As String, Dir As String, File As String, Ext As String)
- - -
Dim strDatei As String
Dim strLW As String Dim strPfad As String Dim strDateiName As String Dim strSuffix As String 'Werte übernehmen strDatei = SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE" 'Pfad zerlegen WizHook.Key = 51488399 WizHook.SplitPath strDatei, strLW, strPfad, strDateiName, strSuffix 'Ausgabe MsgBox "Eingabe: " & strDatei & vbCrLf & vbCrLf & _ "Ausgabe: " & vbCrLf & _ "Laufwerk: " & strLW & vbCrLf & _ " Pfad: " & strPfad & vbCrLf & _ " Datei: " & strDateiName & vbCrLf & _ " Suffix: " & strSuffix
Die Funktion ist unabhängig von der Existenz des übergebenen Dateipfades. Die Funktion ist sehr robust. Wenn nur ein Teil des Dateipfades übergeben wird nur dieser zerlegt.
|
24.04.2013: TM-DatenKlassenGenerator Version 3.28 bereitgestellt. 14.04.2013: TM VBA-Inspector: Version 1.45.57 bereitgestellt. 17.03.2013: TM-DatenKlassenGenerator Aktikel Datenbindung (Teil 5) bereitgestellt. 21.11.2012: TM-FixObjectNames: Version 2.92 bereitgestellt. |
|
|
|
