> Procedure IsFile > Lparameters tcPath, tcFile > Local arrFiles[1] > Local lcFullPath > tcPath = Iif(Empty(m.tcPath), Sys(5)+Curdir(),m.tcPath) > lcFullPath = Iif( Empty(tcFile), m.tcPath, Addbs(m.tcPath)+m.tcFile ) > Return ( Adir(arrFiles,m.lcFullPath) = 1 ) >Endproc >Cetin
Local cEmployeesFolder , xFile cEmployeesFolder = Addbs(Addbs(oApp.cEmployeeImagesFolder) + "_" + Transform(employees.Id)) If Not Directory(cEmployeesFolder) Md (cEmployeesFolder) Endif xFile = cEmployeesFolder + "300x350.jpg" lFileExists = File(xFile) && this returns .T. when the file doesnt exist lFileExists2 = Adir(aMyFile,xFile) > 0 && this returns false when the file doesnt exist