Hi
i need help for the coding of copy the entire CD to a harddisk folder.
How to create a folder i know. To copy the hole stuff i need following code
======================================
endpfad = Input.GetText("pfad");
Folder.Create( endpfad );
StatusDlg.Show(MB_ICONNONE, false);
File.Copy(_SourceDrive .. "\\*.*", endpfad, true, true, false, true, nil);
--Shell.CreateShortcut(_DesktopFolder, "Ich hab's! Café", endpfad "\\start.exe", "", "", endpfad"\\cafe.ico", 0, SW_MAXIMIZE, nil);
error = Application.GetLastError();
-- If an error occurred, display the error code message.
if (error ~= 0) then
Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
else
Dialog.Message("Der kopiervorgang ist beendet.", "Ein Icon wurde auf dem Desktop angelegt.", MB_OK, MB_ICONINFORMATION);
end
=============================================
endpfad ist the path the folder. The problem is, that the copy process starts but it is canceld after a few files.
Can anyone help me
thanks
Chris
i need help for the coding of copy the entire CD to a harddisk folder.
How to create a folder i know. To copy the hole stuff i need following code
======================================
endpfad = Input.GetText("pfad");
Folder.Create( endpfad );
StatusDlg.Show(MB_ICONNONE, false);
File.Copy(_SourceDrive .. "\\*.*", endpfad, true, true, false, true, nil);
--Shell.CreateShortcut(_DesktopFolder, "Ich hab's! Café", endpfad "\\start.exe", "", "", endpfad"\\cafe.ico", 0, SW_MAXIMIZE, nil);
error = Application.GetLastError();
-- If an error occurred, display the error code message.
if (error ~= 0) then
Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
else
Dialog.Message("Der kopiervorgang ist beendet.", "Ein Icon wurde auf dem Desktop angelegt.", MB_OK, MB_ICONINFORMATION);
end
=============================================
endpfad ist the path the folder. The problem is, that the copy process starts but it is canceld after a few files.
Can anyone help me
thanks
Chris
Comment