>=ADIR(gaexpfiles,tdir+"*.csv") >=ASORT(gaexpfiles) >PRIVATE lntot, lctot >lctot="" >lntot=0 >FOR i = 1 TO ALEN(gaexpfiles,1) >IF UPPER(TYPE('gaexpfiles(i,2)'))="N" > lctot=lctot; > +PADR(ALLTRIM(gaexpfiles(i,1)),25,'.'); > +PADL(ALLTRIM(STR(gaexpfiles(i,2))),25,'.'); > +CHR(13) > lntot=lntot+gaexpfiles(i,2) >ENDIF >ENDFOR >lctot=lctot+'Total Free Space Required : '+ALLTRIM(STR(lntot))+CHR(13) >lctot=lctot+'Space on your Floppy Drive: '+'1384576'+CHR(13)+CHR(13) >PRIVATE tcfile >IF lntot>1384576 && not enough space on floppy drive to copy files > MESSAGEBOX(lctot; > +'Not enough space on floppy disk to copy files.'+CHR(13); > +'Click OK to Abort this Operation and Return'+CHR(13); > ,16, 'ERROR - Insufficient space on floppy drive.') > *do whatever you need to since you cannot copy to floppy >ELSE && ok to copy to floppy drive > *Copy the file to the floppy >ENDIF > >