Kopieren, Suchen, Einfügen ??

[PhöniX]

Hi,
gint es den Befehl (ich bin mir ziemlich sicher da es den gibt) mit dem man Dateien suchen kann und sie kopieren und einfügen kann?? (Ich mein jetzt auf dem Rechner oder nur in einem bestimmten Ordner)
Wie lautet der?? :lol:

[Luckie]

SHFileoperation

[PhöniX]

och... :|

Wieder sowas kompliziertes. Geht das nicht einfacher mit nem "Ein-Zeilen-Befehl" ??
(Oder 2 Zeilen) :cry:

[Luckie]

Was ist daran kompliziert? Struktur füllen und an SHFileOperation übnergeben. Normales vorgehen bei API's die Strukturen als Parameter brauchen. Und sakura hat das schon soweit aufbereitet, dass man es mit Copy and Paste übernehmen kann. Was erwartets du? Programmieren ist Wissen in Programmcode umsetzten.

[PhöniX]

achso..hab irgendwie aufs untere geachtet...

[Stanlay Hanks]

Hi.
Zum Thema Suchen: Da wirst du mit einer Zeile nicht weit kommen. Ein Beispiel dazu findest du in der Codelibrary.
Kopieren: CopyFile(); Da hast du also schonmal einen Ein-Zeiler :wink: Näheres Siehe OH.
Löschen: DeleteFile();

Man liest sich, Stanlay :hi:

[PhöniX]

aber wie such ich eine datei??

ich will z.b. gucken ob eine datei existiert..

Delphi-Quellcode:

if Datei-existiert then bla bls bla

[Stanlay Hanks]

Zum Suchen - wie ich ja schon geschrieben habe :wink: - findest du ein Beispiel in der CodeLib.

Ob eine Datei existiert kannst du mit

Delphi-Quellcode:

IF FileExists('test.txt') THEN
.
.
.

rausfinden.

Man liest sich, Stanlay :hi:

[PhöniX]

Zitat:

Delphi-Quellcode:

DoFileWork(Self.Handle, FO_DELETE, strlFiles, nil, FOF_ALLOWUNDO);

Ich füg ShellAPI der uses List zu aber der Compiler erkennt nicht DoFileWork und auch nicht FO_DELETE und auch nicht FOF_ALLOWUNDO..
Was nun?

[Stanlay Hanks]

Wenn ich mich richtig an den Code Lib Beitrag erinnere (Hab ich vor zwei Tagen gelesen, wenn ich mich richtig erinnere), ist doch DoFileWork die Prozedur, die die ganzen Funktionen kapselt, oder? Die wirst du wohl abschreiben (copy & paste) und auch noch deklarieren müssen :wink:

Man liest sich, Stanlay :hi:

[PhöniX]

:wiejetzt:
Hä wie jetzt?

[PhöniX]

:wiejetzt:
Hä wie jetzt?

[Stanlay Hanks]

Hast du das hier

Delphi-Quellcode:

function DoFileWork(
  aWnd: HWND; aOperation: UINT; aFrom, aTo: TStrings; Flags: FILEOP_FLAGS
): Integer;

auch unter private oder public stehen?

[PhöniX]

Delphi-Quellcode:

unit copy_u;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ShellAPI;

type
  TFormCopy = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    function DoFileWork(
  aWnd: HWND; aOperation: UINT; aFrom, aTo: TStrings; Flags: FILEOP_FLAGS
): Integer;
  public
   function DoFileWork( //<---------------------- FEHLER HIER!!!
  aWnd: HWND; aOperation: UINT; aFrom, aTo: TStrings; Flags: FILEOP_FLAGS
): Integer;
  end;

var
  FormCopy: TFormCopy;

implementation

{$R *.DFM}

procedure TFormCopy.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 25 to 30 do
begin;
 DoFileWork(Self.Handle, FO_DELETE, strlFiles, nil, FOF_ALLOWUNDO);
end;
end;

end.

Und nun entsteht der Fehler an der markierten Stelle:
Die überladene Prozedur 'DoFileWork' muss mit der Direktive 'overload' gekennzeichnet sein.

[Stanlay Hanks]

Ich hab geschrieben: unter Private oder public. Du musst dich schon für eins entscheiden :wink:

Lösch eine der Deklarationen, dass sollte es hinhauen.

[PhöniX]

OK..

Delphi-Quellcode:

DoFileWork(Self.Handle, FO_DELETE, strlFiles, nil, FOF_ALLOWUNDO);

Wie muss man die Datei in strlFiles schreiben??
In ''s nicht, oder doch?? :gruebel: