' *** FILEHIDE.LST *** 2nd GFA-Manual, page 11-22 > PROCEDURE file_hide(file$,flag!,VAR ok!) ' ' *** Hide file (flag!=TRUE) or make file visible (flag!=FALSE) ' *** ok!=TRUE if succesful ' LOCAL path$,path%,attr%,a%,m$,k path$=file$+CHR$(0) path%=V:path$ attr%=GEMDOS(&H43,L:path%,0,0) ok!=FALSE IF attr%=-33 m$=" *** File-error ***| |"+RIGHT$(file$,LEN(file$)-RINSTR(file$,"\")) m$=m$+"|not found" ALERT 3,m$,1," OK ",k ELSE IF attr%=-34 m$=" *** Path-error ***| |"+RIGHT$(file$,LEN(file$)-RINSTR(file$,"\")) m$=m$+"|not found" ALERT 3,m$,1," OK ",k ENDIF IF attr%<>-33 AND attr%<>-34 ok!=TRUE IF BTST(attr%,1) ! hidden file: IF NOT flag! ! make file visible attr%=BCLR(attr%,1) a%=GEMDOS(&H43,L:path%,1,attr%) ! do it ENDIF ELSE ! visible file: IF flag! ! hide file attr%=BSET(attr%,1) a%=GEMDOS(&H43,L:path%,1,attr%) ! do it ENDIF ENDIF ENDIF RETURN ' ********* '