1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| sListeFichiers est une chaîne = fListeFichier(ArbreRécupèreIdentifiant(ARBRE_Photos,ArbreSelect(ARBRE_Photos))+"*.*",frNonRécursif)
POUR TOUTE CHAÎNE sCheminFichier DE sListeFichiers SÉPARÉE PAR RC
Extension est une chaîne = Minuscule(Milieu(fExtraitChemin(sCheminFichier,fExtension),2))
SI Extension="jpg" OU Extension="jpeg" ALORS
W_bufImg est un Buffer
W_imgPhoto est une Image
W_bufImg = ImageInfoValeur(sCheminFichier, imgVignette)
ImageInfoFerme(sCheminFichier)
SI W_bufImg <> "" ALORS
W_imgPhoto=W_bufImg
dSauveImageJPEG(W_imgPhoto,gsRepPhotosVignettes+fExtraitChemin(sCheminFichier,fFichier+fExtension))
ListeAjoute(LSI_Images,fExtraitChemin(sCheminFichier,fFichier)+"."+Extension, gsRepPhotosVignettes+fExtraitChemin(sCheminFichier,fFichier+fExtension))
SINON
ListeAjoute(LSI_Images,fExtraitChemin(sCheminFichier,fFichier)+"."+Extension, sCheminFichier)
FIN
FIN
FIN |
Partager