string folder$;
string fname$;
string path$;
path$ = %1;

int number;
findfolders addpath:=1 n:=number;
for (int j=1; j<=number; j++)
{

   findFiles path:=folder.GetToken(j, CRLF)$ ext:="*.xls" addpath:=0;
   int nn = fname.GetNumTokens(CRLF);
   string fnnamesav$ = fname$;

   type "";
   #type "Pfad: $(path)";
   type "files found: $(nn)";
   type "";

   for (int i=1; i<=1; i++) // nn
   {
      string strFilename$ = fname.GetToken(i, CRLF)$;
      #type strfilename$;
   
      string name$ = strfilename$;

      int ibis = name.Len();
      int ibis = $(ibis) - 4;
      string fn$ = name.mid(1,$(ibis))$;

      type "opening $(i) with: %(fn$)";
      
      fname$ = fnnamesav$;

   }

}

int nFolders;
string strFolders;
findfolders path:="E:\MyFolder" addpath:=1 n:=nFolders folder:=strFolders;
for(int ii = 1; ii <=nFolders; ii++)
{
	strTemp$ = strFolders.GetToken(ii, CRLF)$;
	type -a strTemp$;
}