Welcome, Guest

TOPIC:

CopyFile Question 8 years 2 days ago #9484

Dennis Jones
Topic Author
Visitor

I have been fighting this for 2 days. I get failure message for the following code, even though source and destination file names are correct:

procedure TMainForm.FormDropFiles(Sender: TObject; //===
const FileNames: array of String);
var
FileName, DIPPRID, DestFile : String;
begin
for FileName in FileNames do begin
DIPPRID := ExtractFileName(FileName);
DIPPRID := Copy(ExtractFileName(FileName), 1, Pos(' ', DIPPRID));
CreateDir (Settings.ProgramDirectory + 'Projects\' + DIPPRID);
DestFile := Settings.ProgramDirectory + 'Projects\' + DIPPRID + '\' ; //+ ExtractFileName(FileName);
if CopyFile(FileName, DestFile, [], False) then
ShowMessage('Success')
else
ShowMessage('Failure');

// UnZip.BaseDirectory := Settings.ProgramDirectory + 'Projects\' + DIPPRID;
// UnZip.FileName := FileName;
// UnZip.ExtractFiles('*');
end;
end;

Please Log in or Create an account to join the conversation.

CopyFile Question 8 years 2 days ago #9485

Sternas Stefanos
Offline
Moderator
Ex Pilot, M.Sc, Ph.D
Posts: 4508
Thank you received: 1100

Sir
my suggestion is

procedure TMainForm.FormDropFiles(Sender: TObject; //===
const FileNames: array of String);
var
FileName, DIPPRID, DestFile : String;
i:integer; 
begin

For i:=Low(FileNames) to High(FileNames) do
begin
 FileName := FileNames[i];

 DIPPRID := ExtractFileName(FileName);
 DIPPRID := Copy(ExtractFileName(FileName), 1, Pos(' ', DIPPRID));
 CreateDir (Settings.ProgramDirectory + 'Projects\' + DIPPRID);
 DestFile := Settings.ProgramDirectory + 'Projects\' + DIPPRID + '\' ; //+ ExtractFileName(FileName);
 if CopyFile(FileName, DestFile, [], False) then
 ShowMessage('Success')
 else
 ShowMessage('Failure');

// UnZip.BaseDirectory := Settings.ProgramDirectory + 'Projects\' + DIPPRID;
// UnZip.FileName := FileName;
// UnZip.ExtractFiles('*');
end;
end;

:

PS: Good morning with my fist coffee..

PilotLogic Architect and Core Programmer

Please Log in or Create an account to join the conversation.

Last edit: by Sternas Stefanos.

CopyFile Question 8 years 2 days ago #9486

Dennis Jones Topic Author Visitor	Still Failure. Also changed to DestFile := Settings.ProgramDirectory + 'Projects\' + DIPPRID + '\' + ExtractFileName(FileName);
	Please Log in or Create an account to join the conversation.

Forum

CodeTyphon Studio

Using CT on MS Windows

CopyFile Question