Witam !!
Pisze program który przeszukuje dysk w poszukiwaniu wybranych plików
np.: *.bmp a po znalezieniu kopiuje znaleziony plik do jakiegoś katalogu
Wykorzystałem funkcje do kopiowania plikow obecna w FMXUtils.pas -
{Delphi}\\Demos\\Doc\\\"FileEx\" czy jakis taki... gdy uruchomie program
przeszukuje dysk ale gdy zaczyna kopiować to wyskakuje mi błąd
\" Project Project1.exe raised exception class EFCreateError with message
\'Cannot create file c:\\test\\nazwa pliku.bmp\' \"
PROSZE O POMOC !!!
pozwoliłem sobie załączyć żródło
procedure TForm1.ZnajdzPlik(Sciezka,NazwaPliku:String);
var
FSearchRec,DSearchRec:TSearchRec;
FindResult:integer;
function GetDirectoryName(Dir:String):String;
begin
if Dir[Length(Dir)]\'\\\' then
Result:=dir+\'\\\'
else
Result:=Dir;
end;
function IsDirNotation(AdirName:String):Boolean;
begin
Result:=(AdirName=\'.\') or (AdirName=\'..\');
end;
begin
Sciezka:=GetDirectoryName(Sciezka);
FindResult:=FindFirst(Sciezka+NazwaPliku,faAnyFile+faHidden+faSysFile+faReadOnly,FSearchRec);
try
while FindResult = 0 do
begin
Memo1.Lines.Add(Sciezka+FsearchRec.Name);
CopyFile(Sciezka+FsearchRec.Name, \'c:\\test\');
FindResult:=FindNext(FSearchRec);
end;
FindResult:=FindFirst(Sciezka+\'.\',faDirectory,DSearchRec);
while FindResult=0 do
begin
if ((DSearchRec.Attr and faDirectory)=faDirectory) and not IsDirNOtation(DSearchRec.Name) then
ZnajdzPlik(Sciezka+DSearchRec.Name,NazwaPliku);
FindResult:=FindNext(DSearchRec);
end;
finally
FindClose(FSearchRec);
end;
end;