< SNIP >

>Mark,
>As Sergey said you'd change your checks to something like IsDir(lcPath).
>I meant asm was exception, if you don't need special folders that adir() can't access than go with adir(). ie (w/o error checking):
>
>

function IsDir
>lparameters tcPath
>private lnFiles
>lnFiles = adir(arrDummy,tcPath+'\*.*','D')
>return lnFiles > 0 and arrDummy[1,1]='.' and 'D'$arrDummy[1,5]

>Cetin

It would return incorrect result if directory is empty. Here's working version

PARAMETER cDirectory
PRIVATE aDir
cDirectory = ALLTRIM(cDirectory)
IF RIGHT(cDirectory,1) = "\"
    cDirectory = LEFT(cDirectory, LEN(cDirectory)
ENDIF
RETURN ADIR(aDir, cDirectory, "D") > 0