Ordner ermittlen

[Tommy1988]

Hi alle.

Ist es möglich OHNE eine absoluten laufwerksnamen den festplatten-bezeichner (C, E, F...) zu ermitteln und einen Ordner auf bestehen zu prüfen?

ok. ds mit dem ordner, das weis ich wie geht.

aber mit dem laufwerk leider nicht.

[Matze]

Was meinst du genau? Möchtest du die Laufwerksbuchstaben ermitteln?
Falls ja, dann bitte ich dich zukünftig die Suche zu benutzen, denn das hättest du gefunden: in der CL.

[Tommy1988]

Der Link von dir war ja gut gemeint, aber ich möchte nur Festplatten ermitteln und auf existenz prüfen

[Matze]

Schau dir den Code genau an, den ich verlinkt habe, versuche ihn zu verstehen und frag danach, was unklar ist.
Es steht dort, wie man den Laufwerkstyp erkennt (u.a. Festplatte) und wie man ermitteln kann, ob ein Laufwerksbuchstabe gültig ist.

[CCRDude]

Also wenn es Dir um Ordner geht, dann definitiv nicht nur um Festplatten. Ordner existieren auf Partitionen/Dateisystemen, "nur" mit Festplatten fängt man da noch nicht viel an.

Wenn Du nicht auf allen Laufwerken nach dem Ordner testen willst, dann vielleicht auf Festplatten, die keinen Laufwerksbuchstaben zugewiesen bekommen haben? Das liegt dann aber meist an "fremden" Datensystemen (ext3 etc.), und da wirds relativ komplex, denn davon gibts ziemlich viele

[Tommy1988]

ich krieges nicht hin..

[Matze]

Könntest du bitte nochmals konkret schreiben, was du überhaupt erreichen möchtest?
Du schreibst hier von Laufwerksbuchstaben erkennen, Ordner und Festplatte auf Existenz prüfen und ähnliches. Das sind für mich alles verschiedene Themen.

[bitsetter]

Zitat von Tommy1988:

ok. ds mit dem ordner, das weis ich wie geht.

aber mit dem laufwerk leider nicht.

Delphi-Quellcode:

var
  Drives: Array of Array[0..3] of Char;
  i: integer;
begin
  SetLength(Drives, 26);
  SetLength(Drives, GetLogicalDriveStrings(length(Drives), @Drives[0]) div 4);

  for i:= Low(Drives) to High(Drives) do
  if GetDriveType(Pchar(String(Drives[i])))= DRIVE_FIXED then
    listbox1.Items.Add(String(Drives[i]))