5.


5. - 470


.
 
. , DOS,
0 , CT II,
,
.F. <lKeepError>, 0.
 

 
. :
 
nBytes := FILECOPY("TEST\TEST.PRG", "NEW.PRG")
IF nBytes = 0 .AND. ERRORCODE() = 3
? " !"
ENDIF
 
. :
 
//
FILECOPY("XXXXX.TXT", "YYYY.TXT")
? ERRORCODE(.T.) // 2 ( )
? ERRORCODE() // 2 ( )
? ERRORCODE(.T.) // 0 ( INT21h
// )
//
FILECOPY("SOURCE.TXT", "TARGET.TXT")
? ERRORCODE(.T.) // 0 (
// )
? ERRORCODE() // 2 ( ,
//
// )
 


See Also: ERRORACT()
ERRORBASE()
ERRORORG()
+- -լ-L DOS
 


 


ERRORORG()
, .
------------------------------------------------------------------------------
 

 
ERRORORG() --> nDevice
 

 
nDevice - ,
:
 
12-4. DOS
--------------------------------------------------------------------