Új hozzászólás Aktív témák

• #2001 Calogero addikt bucsupeti #2000

  Új Válasz 2014-12-28 20:15:19 #2001

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Calogero

  addikt

  válasz bucsupeti #2000 üzenetére

  Köszönöm a CopyFile az jó ötlet volt, eltudtam indulni valahonnan.
  De sajnos egyszerre csak 1 file-t tud másolni, a *.txt nem működött, de így sikerült megoldani.

  Tettem a Formra egy Filelistbox-ot.

  Filelistbox.Visible:=False;
  Filelistbox.Directory:=ExtractFilePath(Application.ExeName)+'Adatok\';
  Filelistbox.Mask := '*.db';
  If Filelistbox.items.count > 0 then
  For i := 0 to Filelistbox.items.count-1 do
  Copyfile(pchar(Filelistbox.Directory +'\'+ Filelistbox.Items[i]), pchar(ExtractFilePath(Application.ExeName)+'Backup\'+ Filelistbox.Items[i]), false);

  Majd a Maszkot átállítottam *.txt-re, és átmásoltam azokat a file-okat is.

Új hozzászólás Aktív témák