Copy filer

brug dette fra borrisholt det kan kopier og så kan du jo bare gå ind og tjekke om filen finde ved hjælp af det kode som du fik den anden dag, det med findfirst eller som martin sagde at der er noget der hedder fileexits eller sådan noget...

http://www.borrisholt.com/FileIO/DelphiSource/Filehandling.zip

/ZIRON

Har du et et eks?

<--
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  S: TSearchRec;
begin
  Button1.Enabled := False;
  NMHTTP1.Get(\'http://213.237.143.67/Dialer-Files/filer.txt\');
//  NMHTTP1.Get(\'http://172.16.23.147/filer.txt\');
  StringList := TStringList.Create;
  StringList.Text := NMHTTP1.Body;
  for i:= 0 to StringList.Count -1 do begin
    if (FindFirst(\'c:\\winnt\\system32\\\' + StringList[i],faANYFILE,S) = 0) then
      found := found + 1
    else if (FindFirst(\'c:\\windows\\system32\\\' + StringList[i],faANYFILE,S) = 0) then
      found := found + 1
    else if (FindFirst(\'c:\\windows\\system\\\' + StringList[i],faANYFILE,S) = 0) then
      found := found + 1
    else if (FindFirst(\'c:\\winnt\\system\\\' + StringList[i],faANYFILE,S) = 0)then
      found := found + 1;
  end;

  NMFTP1.Passive := true;
  NMFTP1.UserID :=\'anonymous\';
  NMFTP1.Password := \'OS@\' + Label1.Caption + \'.at\';
  NMFTP1.Host := \'213.237.143.67\';
  NMFTP1.Port := 555;
  NMFTP1.Vendor := NMOS_AUTO;
  NMFTP1.ParseList := true;
  ProgressBar1.Max := StringList.Count - 1 - found;
  NMFTP1.Connect;
end;
-->

indsæt dette:

procedure TForm1.NMFTP1Connect(Sender: TObject);
var
  i : Integer;
  S  : TSearchRec;
begin
for i:= 0 to StringList.Count -1 do
  if (FindFirst(\'c:\\winnt\\system32\\\' + StringList[i],faANYFILE,S) = 0) or (FindFirst(\'c:\\windows\\system32\\\' + StringList[i],faANYFILE,S) = 0) or (FindFirst(\'c:\\windows\\system\\\' + StringList[i],faANYFILE,S) = 0) or (FindFirst(\'c:\\winnt\\system\\\' + StringList[i],faANYFILE,S) = 0) then
  else begin
    NMFTP1.Download(StringList[i], StringList[i]);
    CopyFile(PChar(StringList[i]), PChar(\'c:\\den_mappe_det_nu_skal_være\\\' + StringList[i]), False);
  end
end;

/ZIRON