HELP !!! Créer un classeur automatique de documents Fermé

Question

Bonjour, 
Je dois remettre ce samedi un TP, mais comme j'étais pas présente pendant certains cours, je ne sais pas comment y procéder.
Voilà ce qui nous a été demandé :
1- Créer un objet FOLDER qui pointe vers la racine de la clé usb (fait)
2- Créer des sous dossiers dans l'objet FOLDER appropriés (textes, images, videos...) (ça aussi c'est fait)
4-Créer une collection d'objets FILE à l'aide de la propriété de l'objet FOLDER 
5- Parcourir la collection et pour chaque fichier, le déplacer dans le sous répertoire approprié selon son extension (en utilisant End, et end if)

S'IL-VOUS-PLAIT aidez moi, j'arrive pas à faire le 4 et 5 éme le polycopié m'aide pas du tout :'(

Utilisateur anonyme · Answer

Bonjour,

concernant les exercices voir ici
https://www.commentcamarche.net/infos/25899-demander-de-l-aide-pour-vos-exercices-sur-ccm/

SLR · Answer

inputbox ("Introduisez la lettre de votre flash disque")
Dim fso, col
set fso= createobject ("Scripting.filesystemobject")
set foldet= fso.getfolder ("i:\")
fso.createfolder ("i:\images") ; j'ai cree des sous dossiers
images, textes et videos

set col = folder.files  (point 4)

maintenant je dois parcourir la collection (j'ai essaye mais je sais
vraiment pas si je suis sure la bonne voie)

for each file in folder.files
 if (file.getextensionname - je sais pas faire la suite

EDIT: Ajout de la coloration syntaxique.

Eloise · Answer

Bonjour SLR,
Pour qu'on puisse vous aider, montrez nous ce que vous avez essayé de faire, on vous guidera sans autant faire l'exercice à votre place.

HELP !!! Créer un classeur automatique de documents

3 réponses

Discussions similaires