Zur allgemeinen Erheiterung hier mal eine Zusammenfassung der verschiedensten Methoden für Dateien:
Das Zipfile enthält die Quelle und eine Hilfe

Die folgenden Methoden sind in der Unit WORK implementiert:
(att bedeutet Attribut, siehe Hilfe)

function CopyE(ZielDir, Filename: string; att, move: boolean): boolean;
- Kopiert eine Datei Filename nach Zieldir.
function CopyD(ZielDir, Quelldir: string; att, move: boolean): boolean;
- Kopiert alle Dateien aus dem Quelldir nach Zieldir
function CopyF(ZielDir: string; Quelle: TStringList; move: boolean): boolean;
- Kopiert alle in Quelle enthaltenen Dateinamen nach Zieldir
function CopyR(ZielDir, Quelldir: string; att, move: boolean): boolean;
- Wie CopyD, jedoch mit Unterverzeichnissen. Bei move=true werden die
Pfade auch gelöscht.

procedure CopyIniSect(Ziel, Quelle, Section);
- Kopiert von Quelle nach Ziel eine komplette Sektion

function DelD(Dir: string; att: boolean): boolean;
- Löscht alle Dateien aus Pfad Dir, Pfad wird nicht gelöscht
function DelF(Quelle: TStringlist):boolean;
- Löscht alle in Quelle aufgeführten Dateien
function DelR(Dir: string; att: boolean): string;
- Löscht alle Dateien aus Pfad Dir mit Sub-Pfaden, Pfade werden gelöscht
Result='': alles OK, sonst: erstes fehlerhaftes File, Abbruch des Löschens

function FindFile(Pfad, Filename: string; remote: boolean): string;
- sucht ab Pfad nach Filenamen;
function FindPath(Pfad, Dir: string; remote: boolean): string;
- sucht ab Pfad nach Directory Dir, sonst wie vor

Vergleicht Dateien: Name und Länge. Inhalt und Datum werden nicht verglichen!
function CompareP(Pfad1, Pfad2: string; att: boolean): TStringlist;
- vergleicht alle Dateien von Pfad1 mit Pfad2
function CompareL(Quelle: TStringList; Ziel: String; att: boolean): TStringList;
- wie vor, jedoch Vergleich mit Liste aus Quelle;

Stellt in einem Pfad Veränderungen fest:
function GetList(Pfad: string; att: boolean; var List: TStringlist):int64;
- stellt alle Dateien im Pfad in List, Result ist die Gesamtlänge dieser Dateien.
function GetListRek(Pfad, Maske: string): TStringlist;
- stellt alle Dateien im Pfad in Result einschl. Unterpfade.
function GetDiff(Pfad: string; var List: TList): boolean;
- löscht aus List vorhandene Dateien. Result=true, wenn die Liste nicht leer.
Damit werden nur hinzu gekommene oder gelöschte Dateien in List geführt!

function GetSize(Name: string; att: boolean): int64;
- ermittelt Länge von Name.
function GetSizeD(Pfad: string; att: boolean): int64;
- ermittelt Datenlänge aller in Pfad stehenen Dateien
function GetsizeF(Quelle: TStringlist): int64;
- ermittelt Datenlänge aller Dateien, die in Liste Quelle stehen
function GetSizeR(Pfad: string; att: boolean): int64;
- ermittelt Datenlänge aller ab Pfad stehenen Dateien einschl.
aller Subdirectories!

procedure SetAttD(Pfad: string; att: integer);
- setzt in alle Dateien von Pfad die Attributbits att (or att)
procedure SetAttF(List: TStringlist; att: integer);
- setzt bei allen Dateien in Liste die Attribute att (or att)
procedure ClrAttD(Pfad: string; att: integer);
- löscht in allen Dateien von Pfad die Attributbits att (and not att)
procedure ClrAttF(List: TStringlist; att: integer);
- löscht bei allen Dateien in Liste die Attributbits att (and not att)

function FileInUse(Filename: string): boolean;
- wenn File bereits benutzt wird ist result=true;
function RunProg(FileName, param: string; wait: integer): dword;
- startet ein Programm mit Namen, Parameter (und wartet auf dessen ende)
andere Programme des Projektes starten nicht!
function GetColorStr(Col: TColor): string;
- übersetzt TColor in Zeichenkette für Window
function GetVersion(fn: string): string;
- gibt Version der Exe-Datei fn zurück;
function TfWork.GetVersion2(fn: string; typ: string; Lg_ID, Lg_Charset: integer): string;
- wie vor, typ= CompanyName, FileDescription, FileVersion, InternalName,
LegalCopyright, OriginalFilename, ProductName, ProductVersion

function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean; overload;
function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;
Options: [sdAllowCreate, sdPerformCreate, sdPrompt]

procedure CreateLink(Ziel: integer; subdir, Exe, Param, Titel: string; Icon: string);
erstellt Icon mit Link:
Ziel: 0 Startmenu, 1 Programme, 2 Desktop, 3 Startup, 4 Favoriten
Ziel>$10: für alle USER, sonst nur für aktuellen User
subdir: Folder für zusammengefasste Links
Exe: kompletter Pfad+Name des Programms
Param: evtl. Parameter für Ausführen Programm
Titel: Name Link (Text steht unter Icon)
Icon: leer: erstes Bitmap (0) aus Programm, sonst kompletter Pfad des ICONS!