>> 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 > >Greg, please post the value of cEmployeesFolder and xFile after its allocation.