Forum Graph100

/* Exemple d'explorateur pour G100 ou Dos ou Windows ! */

#include <stdio.h>
#include <dir.h>
#include <dos.h>

void far handler()
{
  _hardresume(_HARDERR_FAIL);
}

int main(void)
{
   struct ffblk ffblk;
   int i;
   int done;
   int cur;
   int nbdisk;
   _harderr(handler); //pour ne pas afficher l'erreur lors de la recherche des fichiers
   clrscr();
   printf("Na-Tst-Explorern");
   getch();
   cur=getdisk();
   nbdisk=setdisk(cur);
   for(i=0;i<nbdisk;i++){
    clrscr();
    setdisk(i);
    if(i!=getdisk()) goto nextdsk;
    printf("Disque %c:n",i+0x41);
    done = findfirst("*.*",&ffblk,0);
    while (!done)
    {
        printf("  %sn", ffblk.ff_name);
        done = findnext(&ffblk);
    }
    goto endfor;
    nextdsk:
    printf("Disque %c:Emptyn",i+0x41);
    endfor:
    getch();
   }
   setdisk(cur);
   return;
}