Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
COPY command
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Divers
Thread ID:
01510543
Message ID:
01513161
Vues:
50
>>>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.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform