Új hozzászólás Aktív témák
-
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.
[ Szerkesztve ]
Új hozzászólás Aktív témák
- iPad topik
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Fél tucat Core Ultra CPU jöhet az asztali piacra
- A fociról könnyedén, egy baráti társaságban
- Autós topik
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- iPhone topik
- Luck Dragon: Asszociációs játék. :)
- Milyen CPU léghűtést vegyek?
- Még több embert rúgott ki a Tesla
- További aktív témák...
- Apple AirPods 2 bontatlan 1 év Apple garancia
- ÚJ Playstation 5 FW 5.10 (exploitolható), lemezes
- Assassins Creed THE REBEL COLLECTION ( 2 JÁTÉK ) /// Szinte Új // Számla + Garancia
- AKCIÓ! iPad (9. generációs) Wi-Fi + Cellular tablet garanciával hibátlan működéssel
- 1év garanciával olcsó Irodai mini pc MONITORCENTER
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest