FiveTech Support Forums

I have just upgraded a program from Harbour2005 to Harbour 2006
The following function has stoped working properly.

IF !FILE('albaran') //directory albaran doese not exist
IF LMKDIR( 'albaran' )
ELSE
msgstop('No se ha podido crear la siguiente carpeta: ALBARAN','ERROR:')
ENDIF
ENDIF

Although the directory exists my latest harbour compilations do not detect the directory FILE('albaran') RETURNS .F.

Paul,

You may use this function from FWH:

function lIsDir( cDirName ) // Checks an existing directory

return Len( Directory( cDirName, "D" ) ) == 1