Announcement

Collapse
No announcement yet.

DeleteFile

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • DeleteFile

    Hallo zusammen,
    habe folgendes Proplem mit
    DeleteFile (c:\Test\Datei.txt) wird die Datei gelöscht
    mit
    DeleteFile (c:\Test\*.*) wird nichts im Verzeichnis gelöscht
    wo liegt der Fehler

    Gruss
    RAlf

  • #2
    Hi Ralf,
    die Funktion DeleteFile löscht nur eine Datei.
    Ich empfehle das Löschen über die ShellApi:
    <CODE>
    interface
    Uses ..., <B>ShellApi</B>;
    ...
    function DelDir(const dir: string): Boolean;
    ...
    implementation
    function DelDir(Const dir: string): Boolean;
    var
    fos: TSHFileOpStruct;
    begin
    ZeroMemory(@fos, SizeOf(fos));
    with fos do
    begin
    wFunc := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION or FOF_FILESONLY;
    pFrom := PChar(dir + #0);
    end;
    Result := (0 = ShFileOperation(fos));
    end;
    </CODE>
    Gruß, Fran

    Comment


    • #3
      jau, frank hat recht, die api ist da zuverlässiger

      mit dem von frank erwähnten api-befehl kann man übrigens auch kopieren: http://www.marlem-software.de/prlex_dateien_kopieren.htm

      Gruß

      Marku
      Herzliche Grüße

      Markus Lemcke
      barrierefreies Webdesign

      Comment

      Working...
      X