MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access - Code Archiv
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 30.01.2005, 09:57   #1
TommyK
MOF Meister
MOF Meister
Standard Info - Wie zerlege ich komplette Pfade in Einzelteile?

Hallo,

da diese Frage immer wieder gestellt wird hab ich mal ein allegemeine Funktion erstellt mit der der es möglich ist komplette Dateipfade in seine Einzelteile zu zerlegen:
Laufwerk
Pfad
Dateiname
Extension

Ihr müsst nur den gesamten Code in ein Modul Eurer DB kopieren:
Code:

Public Type SPLITPATH
    sDrive As String
    sPath   As String
    sFile     As String
    sExt As String
End Type
 
Public Function fileSplit(ByVal sFilePath As String) As SPLITPATH
' die Prozedur zerlegt den Dateinamen sFilePath in LW, Path, Name, Extension
Dim I As Integer
 
With fileSplit
    If Mid$(sFilePath, 2, 1) = ":" Then
        .sDrive = Left$(sFilePath, 2)
        sFilePath = Mid$(sFilePath, 3)
    End If
     For I = Len(sFilePath) To 1 Step -1
        If Mid(sFilePath, I, 1) = "\" Then  ' keine Extension vorhanden
            .sExt = ""
            Exit For
        End If
        If Mid(sFilePath, I, 1) = "." Then
            .sExt = Right(sFilePath, Len(sFilePath) - I)
            sFilePath = Left(sFilePath, I - 1)
            Exit For
        End If
     Next I
     I = Len(sFilePath)
     If InStr(sFilePath, "\") <> 0 Then
        While Mid(sFilePath, I, 1) <> "\"
            I = I - 1
        Wend
     End If
     .sPath = Left(sFilePath, I)
     .sFile = Right(sFilePath, Len(sFilePath) - I)
 End With
End Function
Code eingefügt mit dem MOF Code Converter
Der Aufruf könnte dann so aussehen:
Code:

    Dim tSplitPath As SPLITPATH
    tSplitPath = fileSplit("I:\Downloads\DB Serienbrief\DB Serienbrief.mdb")
    MsgBox "Laufwerk: " & tSplitPath.sDrive & vbNewLine & _
           "Pfad: " & tSplitPath.sPath & vbNewLine & _
           "Dateiname: " & tSplitPath.sFile & vbNewLine & _
           "Extension: " & tSplitPath.sExt
Code eingefügt mit dem MOF Code Converter
Es wäre genau so möglich UNC-Pfade zu zerlegen nur das hier bei Drive nichts zurück gegeben wird.
z.B.:
Code:

    Dim tSplitPath As SPLITPATH
    Dim sFilename As String
    tSplitPath = fileSplit("\\Test\Test1\bild.jpg")
    sFilename = tSplitPath.sFile & "." & tSplitPath.sExt
Code eingefügt mit dem MOF Code Converter
Hier wäre der Inhalt der Variablen "sFilename"= "bild.jpg"

Diese Funktion hat auch den Vorteil das sie ohne Zusatz Code auch unter A97 läuft da dort z.B. die Funktion "InStrRev" nicht verfügbar ist.

__________________

Gruss TommyK

TKSoft-Online | Beispiele im MOF Code-Archiv
Meine Software:Windows 10 Pro 64Bit, Windows 7 Ultimate 64Bit, Office 2007 Pro SP2, Office 2010 Pro, Office 2013 Pro, Office 2016 Pro, Office 2019 Pro, VB6 Pro SP6, VS2017

Geändert von TommyK (30.01.2005 um 09:59 Uhr).
TommyK ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:05 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.