George,
When i am using this oFile.Delete(.T.) instead of delete file(lcsource)
I am getting this error:
*****************************************************
OLE error code 0x800a0046: Unknown COM status code
*****************************************************
I am attaching my delete code:
*****************************************************
IF MESSAGEBOX("Are you Sure," + CHR(13) +;
"Want to DELETE this document from the System?",4+32+256) = 6
**Changing the file to readonly off then will delete
oFSO = CREATEOBJECT("Scripting.FileSystemObject")
oFile = oFSO.GetFile(lcDir+"\"+finame+".tif")
If oFile.Attributes = 33 then
oFile.Attributes = BITAND(oFile.Attributes, BITNOT(1))
EndIf
oFile.Delete(.T.)
STORE NULL TO oFSO, oFile
=messagebox("Document Successfully Deleted from the System.")
Else
Return
Endif
*****************************************************************
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement