gucken ob Verzeichnis leer ist sonst...

[Mauli]

Wie mache ich es am geschicktesten???

Ich will gucken, ob in einem bestimmten Verzeichnis eine oder mehrere Dateinen liegen.

Wenn ja, dann sollen die Dateien z.B. verschoben werden. Ich muss allerdings auch wissen wieviele ich verschoben habe.

Mit welcher Funktion kann ich also gucken, ob eine Verzeichnis leer ist?

Ich habe vergessen zu sagen, dass die Dateien immer anders heißen. Also muss ich wissen, ob irgendetwas da ist. Den Namen kann ich dann auslesen und weiter machen.

[oki]

Hi,

schau in der OH nach den Funktionen FindFirst, FindNext und FindClose nach. Dort ist ausführlich (mit Bsp.) beschrieben wie die Sache mit der Suche nach Dateien funzt.

Gruß oki

[sakura]

Falls es Dir um eine .NET Lösung geht, dann teste folgendes. Erstelle eine neue .NET Forms App, werfe einen Button und ein Textfeld drauf. Setze beim Textfeld die Eigenschaft MultiLine auf True und vergrößere es. Dann folgender Code in das Button-OnClick Ereignis:

Delphi-Quellcode:

procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);
var
  Dir: System.IO.DirectoryInfo;
  SubDirs: array of DirectoryInfo;
  Files: array of FileInfo;
  I: Integer;
begin
  Dir := System.IO.Directory.CreateDirectory('C:\Temp');
  TextBox1.Clear;

  TextBox1.AppendText('Verzeichnisse');
  TextBox1.AppendText(#13#10);
  SubDirs := Dir.GetDirectories;
  if Length(SubDirs) > 0 then
    for I := Low(SubDirs) to High(SubDirs) do
    begin
      TextBox1.AppendText(SubDirs[I].Name);
      TextBox1.AppendText(#13#10);
    end;

  TextBox1.AppendText(#13#10);
  TextBox1.AppendText('Dateien');
  TextBox1.AppendText(#13#10);
  Files := Dir.GetFiles;
  if Length(Files) > 0 then
    for I := Low(Files) to High(Files) do
    begin
      TextBox1.AppendText(Files[I].Name);
      TextBox1.AppendText(#13#10);
    end;
end;

......

Nachtrag:

Delphi-Quellcode:

uses
  System.IO;

[Mauli]

Vielen Dank euch Beiden!

Das sollte helfen. Ich probiere beide Wege gleich mal aus.

[sakura]

Zitat von Mauli:

Das sollte helfen. Ich probiere beide Wege gleich mal aus.

Hm, dann musst Du auch zwei Programme schreiben Der Weg von oki ist für bis einschl. D7 und Win32, mein Weg ist ab .NET

......

[Mauli]

Das habe ich erkannt