- Code: Select all Expand view
#include "Fivewin.ch"
FUNCTION MAIN()
? CFILEPATH( "test.txt" )
RETURN NIL
EMG
#include "Fivewin.ch"
FUNCTION MAIN()
? CFILEPATH( "test.txt" )
RETURN NIL
function cFilePath( cPathMask ) // returns path of a filename
local n := RAt( "\", cPathMask ), cDisk
return If( n > 0, Upper( Left( cPathMask, n ) ),;
( cDisk := cFileDisc( cPathMask ) ) + If( ! Empty( cDisk ), "\", "" ) )
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 16 guests