26 lines
396 B
Plaintext
26 lines
396 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
sx_CopyFile( cFileToCopy, cAlias)
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL cCopy := "mynew.dbf"
|
|
LOCAL lResult
|
|
|
|
USE "test/test"
|
|
|
|
? 'lResult := sx_CopyFile( cCopy ) =>', lResult := sx_CopyFile( cCopy )
|
|
IF lResult
|
|
? 'Copy success ... Press any key ...'
|
|
PAUSE
|
|
CLOSE ALL
|
|
USE "mynew.dbf"
|
|
BROWSE
|
|
ENDIF
|