@WSAR1-V1@@COMMENT@test if dir or file exist @DPS@ 2)b[:Us_~OUcDPy& tY:-KBd_M=Y *ks[M=Y *krSͽpٍ!|YD:-K\`Q}mPy& yR}@umPuCuY޽@NOTE@TF_exist Test if a directory or a file exist. *** Target : Target 1: WinPAC-8xx7 / 8xx6 Target 2: VP-25W7 / 23W7 / 25W6 / 23W6 Target 3: XP-8xx7-CE6 / XP-8xx6-CE6 Note: 1. Please refer to ISaGRAF standard function F_wopen , F_ropen , F_close , F_end , Fa_read , Fa_write 2. Please refer to F_creat , F_copy , F_append , F_dir , F_end , F_seek , F_writ_b , F_writ_f , F_writ_s , F_writ_w call: Name_ message directory path name or file name. For ex '\System_Disk\Dir2' , '\System_Disk\DTAT1.txt' return: Q_ boolean TRUE: exist , FASLE: not found. Example: (* init is declared as an internal boolean variable with initial value = True *) (* tmp is declared as an internal boolean variable *) if init then init := False ; tmp := f_exist('\System_disk\Dir2'); (* find a directory or a file *) if tmp = False then (* not found then create it *) tmp := f_dir('\System_disk\Dir2') ; (* create a directory *) end_if ; end_if; ICP DAS , Taiwan Sep.27,2010 @PARAM@#MQ_ @SRC@/* user procedure name: F_READ_B */ #include #include void USP_f_read_b (str_arg *arg) { } UFP uspdef_f_read_b (char *name) { sys_strcpy (name, "F_READ_B"); return (USP_f_read_b); } @DEFS@S/* user procedure interface name: f_exist */ typedef long T_BOO; typedef long T_ANA; typedef float T_REAL; typedef long T_TMR; typedef char *T_MSG; typedef struct { /* CALL */ T_MSG _name_; /* RETURN */ T_BOO _q_; } str_arg; #define NAME_ (arg->_name_) #define Q_ (arg->_q_) @END@