Drag & Drop: Unterscheiden ob Datei oder Ordner

[Helmi]

Hallo,

ich nutze diesen Code um Dateien z. B. aus dem Explorer per Drag & Drop in ein Edit zu ziehen.

Hab ich die Möglichkeit dabei festzustellen, ob es sich dabei um eine Datei oder um einen Ordner handelt?
Und falls ja, wie?

[Edit]
Ich habs jetzt mal mit DirectoryExists und FileExists getestet - das scheint gut zu funktionieren.
Vielleicht gibts aber noch eine andere Möglichkeit

[himitsu]

Ich frag einfach die Attribute ab :angle2:


GetFileAttributes + INVALID_FILE_ATTRIBUTES und FILE_ATTRIBUTE_DIRECTORY

[Helmi]

Danke für die Antwort.

Ich habs jetzt so gelöst:

Delphi-Quellcode:

FileAttributes := GetFileAttributes(PChar(@pDroppedFilename));

is_File := (FileAttributes <> FILE_ATTRIBUTE_DIRECTORY) and (FileAttributes <> $FFFFFFFF);
is_Dir  := FileAttributes = FILE_ATTRIBUTE_DIRECTORY;

[himitsu]

Nur das mit dem FILE_ATTRIBUTE_DIRECTORY-Bit mußt'e noch reparieren. :angle:

Delphi-Quellcode:

FileAttributes = FILE_ATTRIBUTE_DIRECTORY

liefert ja nur True, wenn sonst keine anderen Attribute gesetzt sind
und is_File würde auch True sagen, wenn die Datei/Verzeichnis nicht existiert oder wenn das "Verzeichnis" noch weitere Attribute besitzt. :wink:

Delphi-Quellcode:

is_File := (FileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0) and (FileAttributes <> $FFFFFFFF);
is_Dir := (FileAttributes and FILE_ATTRIBUTE_DIRECTORY <> 0) and (FileAttributes <> $FFFFFFFF); 

// gekürzt, da FILE_ATTRIBUTE_DIRECTORY in INVALID_FILE_ATTRIBUTES enthalten ist
is_File := FileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0;
is_Dir := (FileAttributes and FILE_ATTRIBUTE_DIRECTORY <> 0) and (FileAttributes <> $FFFFFFFF);

[Helmi]

Zitat:

Zitat von himitsu (Beitrag 1126480)

Nur das mit dem FILE_ATTRIBUTE_DIRECTORY-Bit mußt'e noch reparieren. :angle:

Delphi-Quellcode:

FileAttributes = FILE_ATTRIBUTE_DIRECTORY

liefert ja nur True, wenn sonst keine anderen Attribute gesetzt sind
und is_File würde auch True sagen, wenn die Datei/Verzeichnis nicht existiert oder wenn das "Verzeichnis" noch weitere Attribute besitzt. :wink:

Delphi-Quellcode:

is_File := (FileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0) and (FileAttributes <> $FFFFFFFF);
is_Dir := (FileAttributes and FILE_ATTRIBUTE_DIRECTORY <> 0) and (FileAttributes <> $FFFFFFFF); 

// gekürzt, da FILE_ATTRIBUTE_DIRECTORY in INVALID_FILE_ATTRIBUTES enthalten ist
is_File := FileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0;
is_Dir := (FileAttributes and FILE_ATTRIBUTE_DIRECTORY <> 0) and (FileAttributes <> $FFFFFFFF);

Wo du recht hast, hast du recht! (leider :mrgreen:)