Fil hjælp

Tags:    delphi

Jeg har brug for hjælp til følgende:

1. Slette en fil.
2. Omdøbe en fil.
3. Kopiere en fil til en anden destination.
4. Sende en fil til en anden destination.
5. Gøre en fil skrive-beskyttet.
6. Gøre en fil usynlig.
7. Oprette en genvej.


Se datoerne på:

1. Hvornår en fil blev oprettet.
2. Hvornår en fil blev ændret.
3. Hvornår den sidst blev set.

Jeg takker på forhånd for den indsats i gør (stor, som lille).



3 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
Hej Thomas.

Her er noget af det :) :

For at flytte en fil:

MoveFile('C:\\GammelMappe\\GammelFil.exe','C:\\NyMappe\\NyFil.exe');

For at kopiere en fil:

CopyFile('C:\\FilDerSkalKopieres.exe','C:\\FilDerSkalKopieresTil.exe',true);

For at omdøbe en fil:

RenameFile('C:\\FilDerSkalOmdøbes.exe','C:\\FilensNyeNavn.exe');

For at slette en fil:

DeleteFile('C:\\FilDerSkalSlettes.exe');

Og evt. for at oprette en mappe:

MkDir(C:\\Ny Mappe);






Jeg kan pt. hjælpe dig med at kopierer en fil:
Forestil dig at du har to edit-bokse, hvori den ene (edit1) skrives destinationen for filen der skal kopieres, og i den anden (edit2) skrives destinationen for kopien af filen!
Bruger du et "Filestream", vil programmeringskoden se således ud:


procedure TForm1.Button1Click(Sender: TObject);
var
s,t: Tfilestream;
Begin
S:= Tfilestream.Create(edit1.Text, fmopenread); //Her fortælles hvor der skal læses fra
T:= Tfilestream.Create(edit2.Text, fmcreate); //Her fotælles hvor der skal skrives til
T.CopyFrom(S, S.Size); //Her kopieres filen
T.Free;
S.Free; //her afsættes den brugte diskplads igen
end;

Håber du kan få gavn af det...!



Læs nedenunder......
[Redigeret d. 09/02-03 16:11:07 af ESH]



t