Delphi:easy copy without a messages

[REHIT]

кажете ми лесен начин за копиране на файлове в делфи аз знам много ама искам като няма съществуваща директория да не ми пищи ами направо да си я прави (за Replace също).

[DarkLight]

За директорията:

if not DirectoryExists('c:\temp') then

CreateDir('C:\temp');



По същия начин можеш да използваш FileExist да провериш дали файлът вече съществува

[SAGE]

Използвай "CopyFile()", "ForceDirectories()" и "ExtractFilePath()" и си направи функция за копиране на файлове която да създава всички необходими директории. []



например:

нека FullFileName1 и FullFileName2 са пълния път и име на изходния файл и копието, тогава правиш следното:



<font color="yellow">ForceDirectories(ExtractFilePath(FullFileName2));

Result:=CopyFile(PChar(FullFileName1),PChar(FullFileName2),False);//</font id="yellow"><font color="teal">ако последния параметър е "True", то няма да го презапише ако съществува такъв файл.</font id="teal">

Може да си вградиш и различни проверки - дали има такива фйлове, директории и т.н.