есть код для копирование папок и подкаталогов в них(вместе со вложенными файлами)
| Код |
void CopyDirectory (AnsiString Src, AnsiString Dest)
{
TSearchRec sr;
if (FindFirst(Src+"\\*", faAnyFile, sr) == 0)
{
do
{
if (sr.Attr & faDirectory) // directory
{
if (sr.Name!=".")
if (sr.Name!="..")
{
AnsiString SubFld = Src+"\\"+sr.Name;
if (!DirectoryExists(Dest+"\\"+ sr.Name))
CreateDir(Dest+"\\"+ sr.Name);
CopyDirectory (SubFld, Dest+"\\"+ sr.Name);
}
}
else // file
{
if (sr.Name!=".")
if (sr.Name!="..")
{
AnsiString OldName = Src+"\\"+ sr.Name;
AnsiString NewName = Dest+"\\"+ sr.Name;
CopyFile(OldName.c_str(), NewName.c_str(), TRUE);
}
}
} while (FindNext(sr) == 0);
FindClose(sr);
}
}
|
как сделать так чтобы в например в TLabel отражалось имя копируемого файла и процесс копирование текущего файла отображался в TProgressBar? |
)