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

Télécharger le projet
Commenter

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é :)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_doggy)