Hi all

 

I am using Renamefile to upload and update documents to my web server.

 

With some files (not all) the renamefile I use to back up the file is failing, although the file name is unique, and I am trying to find out why.

 

Is there some way to return the reason for failure?

 

sDatExtension := StringReplace(FieldByName('UploadDate').AsString, '/', '',

                    [rfReplaceAll]);

sBackupName := ChangeFileExt(sDatExtension + FieldByName('FileName').AsString, '.bak');   //turns leeme.txt to “20050527leeme.bak”

 

if not ReNameFile(sEntireFilePath + FieldByName('FileName').AsString, sEntireFilePath + sBackupName) then

                    sErrorString := sErrorString +

                        'Could not rename actual file on Disk.  Please notify OSMOS Admin. ' + sEntireFilePath + sBackupName;

 

Produces this message:

 

Could not rename actual file on Disk. Please notify OSMOS Admin. c:\Apache2\incdocs\otherfolder\othersubfolder\24052005Leeme.bak

 

The path exists, and the .bak file does not.  What could be my error?

 

Thanks

 

Tracey

 

 

_______________________________________________
Delphi mailing list
[email protected]
http://ns3.123.co.nz/mailman/listinfo/delphi

Reply via email to