19 lines
247 B
Plaintext
19 lines
247 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "common.ch"
|
|
|
|
function Test( cParam )
|
|
|
|
LOCAL cFile := "c:\harbour\bin\harbour.exe"
|
|
|
|
DEFAULT cParam TO cFile
|
|
|
|
? FilePath( cParam )
|
|
? FileBase( cParam )
|
|
? FileExt( cParam )
|
|
? FileDrive( cParam )
|
|
|
|
return nil
|