Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Dateiendung einer Datei erhalten / TCustomShellTreeView Dateierweiterungen anzeigen (https://www.delphipraxis.net/192730-dateiendung-einer-datei-erhalten-tcustomshelltreeview-dateierweiterungen-anzeigen.html)

SneakyBagels 15. Mai 2017 11:54


Dateiendung einer Datei erhalten / TCustomShellTreeView Dateierweiterungen anzeigen
 
Ich habe gerade das Problem, dass ich die Dateiendung einer Datei erhalten muss, deren Basisnamen ich nur kenne.
Ich kenne also C:\Folder\File. Die Dateiendung kenne ich nicht. Gibt es hier irgendwie die Möglichkeit an diese heranzukommen?

Falls nicht. Ich benutze eine TCustomShellTreeView in meinem Programm. Das ist ein Tree mit checkbaren Nodes.
Wenn in Windows die Dateierweiterungen ausgeblendet sind, dann zeigt mir TCustomShellTreeView die natürlich auch nicht an.
Kann man TCustomShellTreeView dazu überreden sie trotzdem anzuzeigen?

Aviator 15. Mai 2017 12:19

AW: Dateiendung einer Datei erhalten / TCustomShellTreeView Dateierweiterungen anzeig
 
Zitat:

Zitat von SneakyBagels (Beitrag 1371464)
Ich habe gerade das Problem, dass ich die Dateiendung einer Datei erhalten muss, deren Basisnamen ich nur kenne.
Ich kenne also C:\Folder\File. Die Dateiendung kenne ich nicht. Gibt es hier irgendwie die Möglichkeit an diese heranzukommen?

Hier mal was zum Darübernachdenken:

Was ist, wenn die Datei "File.XXX" mehrfach mit mehreren Endungen existiert? Also File.exe, File.txt, File.bat? Dann hast du schon ein Problem.

Alternativ könntest du mit FindFirst(), FindNext(), FindClose() selbst nach der Datei suchen.

EDIT: Ansonsten schau dir mal die Funktion Delphi-Referenz durchsuchenSystem.SysUtils.ExtractFileExt an.
EDIT2: Oder auch Delphi-Referenz durchsuchenSystem.IOUtils.TPath.GetExtension bei neueren Versionen.

SneakyBagels 15. Mai 2017 12:21

AW: Dateiendung einer Datei erhalten / TCustomShellTreeView Dateierweiterungen anzeig
 
Ok noch einmal anders erklärt.
In meiner TCustomShellTreeView mit CheckBoxen befinden sich ja die Nodes mit den Namen eines Verzeichnisses.
Wenn in Windows aber Dateiendungen ausgeschaltet sind, zeigt TCustomShellTreeView die leider auch nicht an ich brauche sie aber.
VirtualTreeView ist mir hier zu kompliziert weil ich da alles neumachen müsste und ich damit eh nicht klar komme.
Dein Beispiel letztens war zwar wirklich sehr nett aber letzten Endes funktioniert es bei mir ja eh nicht. Daher bleibe ich lieber bei TCustomShellTreeView.

Aviator 15. Mai 2017 12:32

AW: Dateiendung einer Datei erhalten / TCustomShellTreeView Dateierweiterungen anzeig
 
Zitat:

Zitat von SneakyBagels (Beitrag 1371468)
Ok noch einmal anders erklärt.
In meiner TCustomShellTreeView mit CheckBoxen befinden sich ja die Nodes mit den Namen eines Verzeichnisses.
Wenn in Windows aber Dateiendungen ausgeschaltet sind, zeigt TCustomShellTreeView die leider auch nicht an ich brauche sie aber.
VirtualTreeView ist mir hier zu kompliziert weil ich da alles neumachen müsste und ich damit eh nicht klar komme.

Den ShellTreeView kenne ich leider nicht. Nie benutzt. Ich würde mir aber denken, dass der bestimmt irgendwo eine Funktion dafür zur Verfügung stellt um den kompletten Namen auszulesen.

Bzgl. VirtualTreeView hatte ich dir ja eine komplette Beispielanwendung erstellt die die gesamte Verzeichnisstruktur virtuell ausliest. Kannst du damit nichts anfangen?

SneakyBagels 15. Mai 2017 13:45

AW: Dateiendung einer Datei erhalten / TCustomShellTreeView Dateierweiterungen anzeig
 
Problem gelöst. Ich lese einfach TShellFolder(Node.Data) aus. Klappt wunderbar.


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:58 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz