#Define DEBUG .T. #If DEBUG goApp.logsomething() #EndifIf you set DEBUG .F. the line isn't compiled into the exe at all.
#Define FindFirst Sys(2000,SKELETON) #Define FindNext Sys(2000,SKELETON,1) Local lcSkeleton lcSekelton = "c:\*.*" #Define SKELETON lcSkeleton ? FindFirst ? FindNext ? FindNextEven overload functions
#Define File myFile Function myFile(lcFilename,lnFlags) If !Directory(justdrive(lcFilename)) Return .F. Endif If !Directory(justpath(lcFilename)) Return .F. Endif If pcount()=1 return File(lcFilename) Endif return File(lcFilename,lnFlags) EndfuncThis for example once saved my day as a fileserver was misconfigured to need a timeout of 30 seconds before returning .F., if a requested file name didn't exist, while checks für drives and directories didn't have that performance hit.