Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Funktionssammlung: Dateiendung ermitteln

VBA stellt standardmig keine Funktion bereit, um die Endung einer Datei zu ermitteln. Sofern diese sich wie blich durch einen Punkt getrennt am Ende des Dateinamens befindet, lsst sich eine solche Funktion allerdings leicht per VBA nachbauen.

Beschreibung

Die Funktion DateiendungErmitteln erwartet lediglich die Angabe eines Dateinamens mit oder ohne Verzeichnisangabe.

Funktionscode

Public Function DateiendungErmitteln(strDateiname As String) As String

    DateiendungErmitteln = Mid(strDateiname, InStrRev(strDateiname, ".") + 1)

End Function

Syntax

DateiendungErmitteln "c:\test.pdf"

© 2003-2015 André Minhorst Alle Rechte vorbehalten.