Citation :
FOR each Fichier in objDossier.Files
redim preserve table_fichier(2,enregistrement)
table_fichier(2,enregistrement) = mid(Fichier.name,1,(instr(Fichier.name,"." )-1))
table_fichier(1,enregistrement) = mid(Fichier.name,(instr(Fichier.name,"." ))+1)
enregistrement=enregistrement+1
NEXT
|