Registriert seit: 30.01.2016
Version(en): 2010
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?
Registriert seit: 28.05.2014
Version(en): 2013 / 2016
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.
Beste Grüße
Günther
Excel-ist-sexy.de …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
Registriert seit: 29.09.2015
Version(en): 2030,5
08.05.2017, 13:28
(Dieser Beitrag wurde zuletzt bearbeitet: 08.05.2017, 13:29 von 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
Registriert seit: 30.01.2016
Version(en): 2010
08.05.2017, 14:07
(Dieser Beitrag wurde zuletzt bearbeitet: 15.05.2017, 12:53 von Rabe.
Bearbeitungsgrund: Code-Tags verwendet
)
@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?
Registriert seit: 29.09.2015
Version(en): 2030,5
Bitte, verwende Code Tags !
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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.
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)