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

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

Newsletters