Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
COPY command
Message
From
06/06/2011 14:19:23
 
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
01510543
Message ID:
01513161
Views:
49
>>>If I use yor code
>>>
>>>oFS = CREATEOBJECT([scripting.FileSystemObject])
>>>
>>>SORCEFILE="C:\AA\ŠĆŠ.DOC"
>>>TARGETFILE="C:\TMP\AA\ŠĆŠ.DOC"
>>>
>>>oFS.CopyFile(SorceFile, TargetFile, 1)
>>>
>>>error ocurs
>>>
>>>"ole error code 0x800a004c: Unknown COM status code"
>>>
>>>Where am I wrong?
>>>
>>>Thanks in advance Boris.
>>
>>You can't overwrite a file which is marked as readonly.
>>So try this:
>>
>>oFS = CREATEOBJECT([scripting.FileSystemObject])
>>
>>SORCEFILE="C:\AA\ŠĆŠ.DOC"
>>TARGETFILE="C:\TMP\AA\ŠĆŠ.DOC"
>>TRY
>>  oFS.DeleteFile(TargetFile, .t.)
>>CATCH
>>ENDTRY
>>oFS.CopyFile(SorceFile, TargetFile, .t.)
>>
>
>Do you have the same code, but without using oFS (just to play safe in case it's disabled)?
>
>Thanks.
DECLARE INTEGER CopyFile IN WIN32API STRING lpExistingFileName,;
                                     STRING lpNewFileName,;
                                     INTEGER bFailIfExists

SORCEFILE="C:\AA\ŠĆŠ.DOC"
TARGETFILE="C:\TMP\AA\ŠĆŠ.DOC"

IF CopyFile(SORCEFILE, TARGETFILE, 0) # 0
   *** Success
ELSE
   *** Fail
ENDIF
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform