// // DIRSIZE.VDM Ch. Ziemski 19.01.2006 // // Calculates the summary size of the files in the current directory. // Without sub directories! // // It's a prototype only. Can be improved! // //-------------------------------------------------------- Buf_Switch(Buf_Free) Out_Ins() Dir_Date("*",NOMSG+SUPPRESS) Out_Ins(Clear) // Delete all in front of the size values Del_Block(0, File_Size, COLSET, 1,33) #103=0 BoF while (! At_EoF) { #103+=Num_Eval(SUPPRESS) Line(1, ERRBREAK) } ItoA(#103, 103) ItoA(Cur_Line-1, 104) Dialog_Input_1(103,"`Information`, `There are |@(104) files in the directory (without subdirs).`, `In summary |@(103) bytes.`", WORKAREA+CENTER,0,0) Buf_Quit(OK)