>LOCAL cEmployeesFolder , xFile
>
>cEmployeesFolder = Addbs(Addbs(oApp.cEmployeeImagesFolder) + "_" + Transform(employees.Id))
>If Not Directory(cEmployeesFolder)
> Md (cEmployeesFolder)
>Endif
>
>xFile = cEmployeesFolder + "300x350.jpg"
>
>*-- For a file that does not exist this next test will fail
>*-- That is to say that the block is not executed
>If Not File(xFile)
> *-- This next line fails to execute when the var xFile does not exist
> xFile = Addbs(oApp.cEmployeeImagesFolder) + "camera.jpg"
>Endif
>
>BUT the watch window reports
> File(xFile) is .F.
> NOT File(xFile) is .T.
>
>
>Why would this happen ?
Greg,
I would use it as :
If file(m.xFile) && Thinking there might be a field named xFile
However I don't trust File() and use my own IsFile() function :
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