> BLib.Generic.FInfo v1.00  Read and write file info : (+ FNf_info - find full file information 2+ ------------------------------------- <ݤf_info(A$) F(os%-32)=0 P: T%,L%,E%,S%,F%,U%,P%:X%!14=0:T%=file(A$,5):T%=0:=0 Z5X%!17=0:X%!21=0:X%!25=0:F%=fs:F%<>16:F%<>5:=T% d%L%=X%!2:E%=X%!6:S%=X%!10:P%=X%!14 nLF%=16:A%=file(A$,&FD):X%!6=E%:X%!10=S%:X%!6=0:X%!10=0:X%!8=P%:X%?8=0 xRF%=16:X%!14=P%:X%!17=X%!6:X%!21=X%!10:X%!25=X%!2:X%!2=L%:X%!6=E%:X%!10=S%:=T% #NetFS_Op(18,65+A$)=0:U%=X%!5 mNetFS_Op(18,64+A$)=0:X%!15=X%!10:X%?19=X%?14:X%!20=X%!5:X%?24=X%?9 X%!14=P%:X%!19=P%:X%?19=0:X%!22=0 2X%!2=L%:X%!6=E%:X%!10=S%:X%?14=P%:X%!25=U%:=T%  dir%,sh%:dir%319 5ș"FindFirstFile",f_name(A$),dir%sh%:sh%=-1:=0 Lsh%=-1:ș"GetFileAttributes",f_name(A$)sh%:=((sh%16)16+1)(sh%<>-1) 5ș"FindClose",sh%:X%!10=dir%!32:dir%!28:X%!10=-1 BX%?14=(dir%?01)*8+&33:ș "FileTimeToSystemTime",dir%+20,X%+16 BA%=(X%!16&FFFF)-1981:X%?15=X%?22+(A%&70)*2:X%?16=X%?18+A%*16 9X%?17=X%?24:X%?18=X%?26:X%?19=X%?28:=(dir%?016)16+1 : : 7 FNf_access - convert access byte to access string 7 ------------------------------------------------- *ݤf_access(A%,T%):A$:(A%128):A$="P" "(T%2):A$=A$+"D" ,(A%8):A$=A$+"L" 6(A%2):A$=A$+"W" @(A%1):A$=A$+"R" J(A%5)=4:A$=A$+"E" T A$=A$+"/":(A%32):A$=A$+"w" ^(A%16):A$=A$+"r" h(A%80)=64:A$=A$+"e" r=A$+" ",8) |: