dosya silme

[aydogan46]

deletefile komutu ile sadece tek dosyayı silebiliyoruz sanırım. aynı komutla birden fazla dosyayı silmemiz mümkün mü?
deletefile('c:\deneme\*.*') komutunun yaptıgı işi nasıl yaparım. yardımcı olurmusunuz
herkese kolay gele

[Asri]

Bu kodlar umarım işine yarar.

iyi çalışmalar.

Kod: Tümünü seç

uses
  shellapi

function FileManager(xSourcePath, xDestPath, xPara: string): Boolean;
var
  PFileMsg: TSHFileOpStruct;
  mNowPath: string;
begin
  Result := False;
  FillChar(PFileMsg, sizeof(PFileMsg), #0);
  if pos('.', xpara) = 0 then
    exit;
  mNowPath := GetCurrentDir;
  if xSourcePath <> '' then
    if not DirectoryExists(xSourcePath) then
    begin
      showmessage('The source path does not exist !');
      exit;
    end;
  if xDestPath <> '' then
    if not DirectoryExists(xDestPath) then
    begin
      showmessage('The destination path does not exist !');
      exit;
    end;
  if SetCurrentDirectory(Pchar(xSourcePath)) then
  begin
    with PFileMsg do
    begin
      if Owner is TForm then
        Wnd := TForm(Owner).Handle
      else
        Wnd := Application.Handle;
      if xDestPath <> '' then
      begin
        wFunc := FO_COPY;
        PTo := pChar(xDestPath);
        fFlags := FOF_MULTIDESTFILES + FOF_NOCONFIRMATION;
      end
      else
      begin
        wFunc := FO_DELETE;
        fFlags := FOF_ALLOWUNDO + FOF_NOCONFIRMATION;
      end;
      pFrom := PChar(xPara + #0#0);
    end;
    SHFileOperation(PFileMsg);
    SetCurrentDirectory(Pchar(mNowPath));
    Application.ProcessMessages;
    Result := True;
  end;
end;

kullanımı bir dizini başka bir dizine kopyalamak için

Kod: Tümünü seç

FileManager('C:\Demo', 'C:\Temp', '*.*');

Kullanımı bir dizinin içindeki tüm dosyaları silmek için

Kod: Tümünü seç

FileManager('C:\Demo', '', '*.*');

[aydogan46]

çok teşekkür ederim

[digital_agels]

bunu çalıştıramadım ya owner da hata veriyor

[Fatih!]

http://www.delphiturkiye.com/index.php? ... yalari_sil

[digital_agels]

bana başkaları lazım değil bu lazımdı şimdi şu var ben burdaki gibi bi klasörün içindekileri başka klasöre aktarcam ama aktarırken bu dosya var üstüne yazmak istiyormusunuz diyor o soruyu sormayan kod lazım bana yada önce slicem sonra kopyalıcam kafam karıştıı ama bu fonksiyon güzel..

[Misafir]

merhaba.
copyfile'i neden kullanmıyorsunuz sorabilir miyim?

[Asri]

Kod: Tümünü seç

var
  Form1: TForm1;
  owner:tcomponent;