Dateityp bzw. Dateiendung auslesen

[DerAnfänger]

Hallo,

ich lese den Dateityp folgendermassen aus:

Sub Dateityp()
Dim str$
str = "Ein Buch.epub"
Debug.Print Right(str, InStr(StrReverse(str), ".") - 1)
str = "Ein zweites Buch.pdf"
Debug.Print Right(str, InStr(StrReverse(str), ".") - 1)
End Sub

Geht so etwas besser?

[GMG-CC]

Moin,
kommt darauf an, wozu du so etwas brauchst. Wenn du "nur" eine Auflistung eines oder mehrerer Verzeichnisse und den entsprechenden Extensions haben willst, geht das sehr schön mit Power Query; Beispiel siehe http://www.excel-ist-sexy.de/power-query...ichnisses/ oder weitere Beiträge in dem Blog.

[snb]

Code:

Sub M_snb()
   msgbox createobject("scripting.filesystemobject").GetExtensionName("G:\OF\beispiel.docm")
End Sub

Code:

Sub M_snb()
   msgbox split("Ein Buch.epub",".")(1)
End Sub

Code:

Sub M_snb()
   MsgBox Mid("Ein Buch.epub", InStr("Ein Buch.epub", ".") + 1)
End Sub

[DerAnfänger]

@Günther: Starke Webseite!
@snb: Gute Alternativen und Logik kann ich immer gebrauchen!
Danke.

Habe mein Problem jetzt so gelöst:

Code:

Sub Namen_Typen_Erweiterung()
  
   Dim strPath$
   Dim FSO As Scripting.FileSystemObject
   Set FSO = New FileSystemObject
   strPath = "C:\Test\"
  
   For Each File In FSO.GetFolder(strPath).Files
      Debug.Print FSO.GetExtensionName(strPath & File.Name)
   Next
  
End Sub

Doch jetzt stehe ich vor dem nächsten Problem.
Die Ergebnisse will ich in einer ComboBox speichern. Damit ist natürlich klar, dass jeder gefundene Dateityp nur einmal als Item dort eingetragen werden soll.
Wie würde eine möglichst elegante Lösung aussehen?

[snb]

Bitte, verwende Code Tags !

[schauan]

Hallöchen,

Du könntest die Treffer zuerst einmal in eine Collection einfügen. Die hat den Vorteil, dass sie Einträge mit Key nur einmal aufnimmt. Kommt der Key ein zweites mal, wird ein Fehler ausgelöst.

Alternativ könntest Du die Treffer direkt übergeben und müsstest zuerst prüfen, ob die schon drin sind.