Accueil > > > RANGER LES FICHIERS D'UN RÉPERTOIRE DANS DES SOUS RÉPERTOIRES QUI PORTENT LE NOM DE L'EXTENTION
RANGER LES FICHIERS D'UN RÉPERTOIRE DANS DES SOUS RÉPERTOIRES QUI PORTENT LE NOM DE L'EXTENTION
Information sur la source
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
- Public Sub SourceCode()
- Picture1.picture="JpegFile.jpg"
- RichTextBox1.FileName="ZipFile.zip"
- RichTextBox1.Refresh
- MsgBox "VBFrance c'est cool !",vbExclamation,";-)"
- End Sub
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é :)
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
VB excel - Deplace fichier dans un répertoire en fonction du nom [ par asengs ]
Bonjour, je souhaiterais trouver une macro qui me permette de déplacer des fichiers dans un répertoire, en fonction du nom du fichier et du nom du ré
Fichier et dossier [ par Zerross ]
Tout d'abord, bonjour tout le monde :)Voici ma petite question qui, je pense ne dois pas etre compliquer, mais a laquelle je ne trouve pas de réponse.
Renommer partiellement un dossier ou fichier [ par tonstre ]
Bonjour,est-il possible de renommer un dossier, un répertoire ou un fichier en cliquant sur un bouton d'un formulaire?Exemple renommer un répertoire d
Problème de chemin d'acces [ par maxwel2005 ]
Bonjour,Je rencontre un petit problème.Déjà voici mon code/code Dim rep, Nom_Tbl As String, Dossier As String'obtient le premier fichier ou répertoire
Droit de copy sous Windows 7 [ par tolt ]
Bonjour, J'ai un petit programme VB6 qui télécharger un fichier via internet et qui ensuite copy le fichier en question dans un répertoire. Sous Win
Script, Dossier + Sous Dossier + "publication" page HTML [ par Alexis28130 ]
Bonjours voila mon souci... Je liste TOUS les fichier de C et je l'est met dans un fichier HTML, je voudrais faire la même chose sauf que dans le html
[Catégorie modifiée .Net -> VBA] Macro Excel : enregistrer un fichier.csv dans le répertoire courant [ par pico5892 ]
Bonjour, Dans un fichier Excel contenant plusieurs onglets, je souhaite enregistrer dans le répertoire actif (où se trouve le fichier Excel) 3 onglet
Trouver un fichier peu importe son extension [ par djedjeska ]
Bonjour à tous, j'aimerais savoir s'il est possible de chercher un fichier dans un dossier donné, disons "C:\Dossier", le fichier se nommant "Avatar",
Obtenir le chemin d'un dossier (et non d'un fichier) [ par InfoGeo ]
Salut ! Je suis sous excel. Je voudrais savoir s'il est possible (je pense que oui mais bon), d'obtenir l'adresse d'un dossier grâce à un bouton "par
Copier un fichier en créant un dossier au passage [ par lunnorey ]
Bonjour, Je souhaite copier ce fichier : [code=autre]C:/test/ADC/file.txt[/code] Vers : [code=autre]C:/test2/ADC/[/code] Je précise que le fichier C:/
|
Derniers Blogs
XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|