Ranger les fichiers d'un répertoire dans des sous répertoires qui portent le nom de l'extention

Soyez le premier à donner votre avis sur cette source.

Vue 5 965 fois - Téléchargée 485 fois

Description

Ben, c'est simple, j'avais besoin d'un soft qui rangeait facilement les fichiers ...
Principe : on indique le répertoire à ranger, la ou les extentions à traiter (*.mp3|*.exe|*.jpg) etc, et il se charge du reste ...

Simple, mais efficace ...

P'têtre que ça serivra à qqn d'autre :)

Source / Exemple :


Public Sub SourceCode()
  Picture1.picture="JpegFile.jpg"
  RichTextBox1.FileName="ZipFile.zip"
  RichTextBox1.Refresh
  MsgBox "VBFrance c'est cool !",vbExclamation,";-)"
End Sub

Conclusion :


Pour tester, j'ai mis un sous répertoire "TestDirectory", avec un autre sous répertoire Backup, ça permet de pas avoir à recréer des fichiers pour tester :)
indiquez au soft le répertoire TestDirectory et il classera les fichiers de test qui sont dedans. Une fois le classement terminé, recopiez-les simplement à partir du répertoire "backup"

Voilà ... par contre, si vous comprenez pas le code (ça devrait pas arriver), vous devriez pas l'essayer sur un autre répertoire que celui de test :), l'utilisation de FileCopy et de Kill ne demandant pas de confirmation avant de supprimer/écraser les fichiers ...

La mise à jour c'est pour supprimer l'exe que j'avais mis dans le zip, désolé :)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_didine13
Messages postés
96
Date d'inscription
mardi 18 août 2009
Statut
Membre
Dernière intervention
14 août 2013
-
Marche pas sur 20 image il a déplacer 1
cs_doggy
Messages postés
50
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
12 janvier 2004
-
Ca fait un bout de temps que je l'ai fait ... et je ne me souviens plus trop, mais il me semble qu'il est prêt à compiler ...
mesrine54
Messages postés
1
Date d'inscription
mardi 24 juillet 2007
Statut
Membre
Dernière intervention
26 novembre 2007
-
Comment on le fait fonctionner?????
cs_Jackboy
Messages postés
757
Date d'inscription
vendredi 7 septembre 2001
Statut
Membre
Dernière intervention
19 juin 2008
-
salut

peut etre faire fonctionner avec des bd access.... .mdb sa serai bien pour un petit module de backup de bd...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.