削除する方法ファイルが

Question

つまり、指定されたディレクトリ

例内のパターンに一致するすべてのファイルを削除し、あなたがSHFileOperationを使用することができますDirectoryNameの

内

Answer 1

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    DeleteFiles(ExtractFilePath(ParamStr(0)),'*.jpg'); 
end; 

procedure DeleteFiles(APath, AFileSpec: string); 
var 
    lSearchRec:TSearchRec; 
    lPath:string; 
begin 
    lPath := IncludeTrailingPathDelimiter(APath); 

    if FindFirst(lPath+AFileSpec,faAnyFile,lSearchRec) = 0 then 
    begin 
    try 
     repeat 
     SysUtils.DeleteFile(lPath+lSearchRec.Name);  
     until SysUtils.FindNext(lSearchRec) <> 0; 
    finally 
     SysUtils.FindClose(lSearchRec); // Free resources on successful find 
    end; 
    end; 
end; 

Answer 2

をすべての* .jpgファイルを削除します。関数。 SHFileOperationの使い方については、ごみ箱にファイルを削除するオプションがあり、通常のAPIアニメーションが表示されるので、ユーザーは何が起こっているのかを知ることができます。欠点は、削除がJeffのコードよりも少し時間がかかることです。

いくつかのラッパーがあります。私はBP Softwareのこのフリーラッパーを使用します。ラッパーファイル全体はわずか220行で、読みやすく使いやすくなっています。私はこれをコンポーネントとしてインストールしません。私は、私のプロジェクトにこのユニットを追加し、必要に応じてオブジェクトを作成して解放するほうが簡単だと分かりました。

更新：BPソフトウェアサイトのダウンロードリンクはもう有効ではありません。 older version on the Embarcadero websiteがあります。

TSHFileOp（1.3.5.1）（3 KB）
月 31、2006 ごみ箱をサポートする、 動きをコピー、名前変更、または削除するSHFileOperation APIのラッパー （ある
TComponentは）ファイルシステム オブジェクト。

SHFileOperationのファイル名パラメータは、MS DOSスタイルのワイルドカードをサポートします。ですから、このようにコンポーネントを使用することができます：

     FileOps := TSHFileOp.Create(self); 

     FileOps.FileList.Add(DirectoryName + '\*.jpg'); 

     FileOps.HWNDHandle := self.Handle; 
     FileOps.Action := faDelete; 
     FileOps.SHOptions := 
      [ofAllowUndo, ofNoConfirmation, ofFilesOnly, ofSimpleProgress]; 
     FileOps.Execute; 

を私は通常、Windowsが再び尋ねないように自分自身がそう、私はいつもofNoConfirmationフラグを渡すメッセージ「あなたはよろしいです」と表示します。

すべてのjpgファイルを削除したくない場合や、複数のディレクトリから削除する必要がある場合は、executeを呼び出す前にFileList文字列リストに完全なファイル名または別のパスを追加できます。

ここではMSDN Page for SHFileOperation
SHFileOperationはWindows Vistaから始まるIFileOperationに置き換えられています。私は問題なくWindows Vista上でSHFileOperationを使い続けました。デルファイの最近のバージョンで

Answer 3

、あなたはおそらく、System.IOUtilsのクラスを使用することになり、実質的にFindFirst、FindNextなどをラップしている：

procedure DeleteFilesMatchingPattern(const Directory, Pattern: string); 
    var FileName: string; 
begin 
    for FileName in TDirectory.GetFiles(Directory, Pattern) do TFile.Delete(FileName); 
end;