Check out lines 1250 and 1255 in the following extract from Directory_bas which
is the utility to build a SuperBasic file which rebuilds you Win_ directory
structure.
Cheers,
Norman.
1140 DEFine PROCedure check_dir (d$)
1145 LOCal name_len%, curr_d$(40), curr_f$(41), entry$(64), loop
1150 LOCal ch%, qdos, err_loop, error_code%, loop_yn
1155 :
1160 curr_d$ = d$
1165 CURSOR_ON #1 !
1170 REPeat err_loop
1175 qdos = FOPEN_DIRECTORY(curr_d$)
1180 IF qdos < 0
1185 FORCE_ERROR qdos, 'Cannot open directory on ' & curr_d$
1190 ELSE
1195 EXIT err_loop
1200 END IF
1205 END REPeat err_loop
1210 REPeat loop
1215 IF END_OF_DIRECTORY(qdos) THEN EXIT loop: END IF
1220 IF INKEY$(#1, 2) = CHR$(27)
1225 aborted = 1: REMark ** ESC pressed during processing **
1230 EXIT loop
1235 END IF
1240 entry$ = FREAD_DIRECTORY$(qdos)
1245 IF entry$ = '' THEN NEXT loop: END IF
1250 name_len% = CODE(entry$(15)) * 256 + CODE(entry$(16))
1255 IF NOT (name_len%) THEN NEXT loop: END IF
1260 curr_f$ = entry$(17 TO (17 + name_len% - 1))
1265 IF CODE(entry$(6)) = 255
1270 PRINT ! curr_f$ !
1275 PRINT #3,next_line% & ' DATA "' & curr_f$ & '"'
1280 next_line% = next_line% + 5
1285 check_dir ('win1_' & curr_f$)
1290 IF aborted THEN EXIT loop: END IF
1295 END IF
1300 END REPeat loop
1305 CLOSE_DIRECTORY (qdos)
1310 CURSOR_OFF #1
1315 END DEFine check_dir
_______________________________________________
QL-Users Mailing List
http://www.q-v-d.demon.co.uk/smsqe.htm
