Архив форумов ЦИТФорума

[Serega Belov]

Пожалуйста, научите: как в Delphi копировать файл из одного каталога в другой. Спасибо.

[karnage]

Открываеш файл, все оттуда считываешь, создаешь новый файл и все туда запихиваешь.
Еще как-то можно дос-команду copy запустить. Не помню как, сейчас если найду, скину.

[Anatoliy]

Вот вырезал и своей программы. С++Builder.

String Directory,Dir;
BROWSEINFO BrowsingInfo;
char FolderName[MAX_PATH];
LPITEMIDLIST ItemID;
memset(&BrowsingInfo, 0, sizeof(BROWSEINFO));
BrowsingInfo.hwndOwner = Handle;
BrowsingInfo.pszDisplayName = FolderName;
BrowsingInfo.lpszTitle = "Выбрать директорию:";
ItemID = SHBrowseForFolder(&BrowsingInfo);
if(ItemID) { char DirPath[MAX_PATH]="";
SHGetPathFromIDList(ItemID, DirPath);
Dir = DirPath; }
SHFILEOPSTRUCT op;
ZeroMemory(&op,sizeof(op));
String RestoreDir, RestoreToDir,PathFil;
RestoreDir = DM->Tdocum->FieldValues["pathdoc"];
RestoreToDir = Dir.c_str();
RestoreDir.SetLength(RestoreDir.Length()+1);
RestoreDir[RestoreDir.Length()]='\0';
RestoreDir.SetLength(RestoreDir.Length()+1);
RestoreDir[RestoreDir.Length()]='\0';
RestoreToDir = RestoreToDir+"\\";
RestoreToDir.SetLength(RestoreToDir.Length()+NULL+NULL);
op.hwnd=0;
op.wFunc = FO_COPY;
op.pFrom = RestoreDir.c_str();
op.pTo = RestoreToDir.c_str();
op.fFlags = FOF_ALLOWUNDO;
op.fFlags = FOF_FILESONLY;
int copy_done = SHFileOperation(&op);
if(copy_done ==0) { if(op.fAnyOperationsAborted) { ShowMessage("Процесс копирования остановлен"); } }
else { ShowMessage("Копирование не удалось."); }

Если что напиши мне на почту скины полностью с кратким описанием.
Это с использованием Win API