Liste des Extensions sur un disque dur

[Caninge]

Bonjour à tous,

Tout n'est pas possible avec EXCEL.

Mais je pose quand même la question.

Peut-on lister toutes les extensions existantes sur un disque dur ?

EXEMPLE:

Disque local (K) :

Extensions / Nombre

BMP 2
CDA 3
CDG 4
DIV 1
DOC 7
XLS 10

Merci

 

[Caninge]

Re : Liste des Extensions sur un disque dur

Bonjour KIKI

J'ai compris,

La première macro fonctionne mais affiche plusieurs doublons à chaque fois et ne s'arrête pas. Enfin peut-être que si mais au bout de ..................

La deuxième macro fonctionne très bien mais ce sont les résultats qui sont approximatifs.
Voici un exemple de ce que je peux trouver.



G.S.iso
gif
gp3
gp4
gtp
HLP
htm
ini
iso
Jerome - Julie à la folie.kar
jpg
kar
L.M.kar
LOG
McRae.2005.US.PL.FR.DE.IT.SP-Ultima.iso
mid


Bon maintenant je vais au lit, les vacances sont finis, je reprends demain matin.

Je te remercie et à bientôt.

 

[kiki29]

Re : Liste des Extensions sur un disque dur

Re the last one V54
La 55 est celle à adapter si "FileSearch" sous Excel 2007

 

[Caninge]

Re : Liste des Extensions sur un disque dur

Bonjour

me revoici.

je suis désolé cela ne fonctionne pas

Je ne comprends pas très bien. tu vas sans doute me prendre pour un imbécile.

Je vais t'indiquer la version de EXCEL : 2003

comme exemple je vais te donner le chemin d'un répertoire pour rechercher:

K:\Papa\divers.

Comme cela tu pourras le mettre dans la macro à l'endroit prévu.

je suis perdu.

Merci

 

[kiki29]

Re : Liste des Extensions sur un disque dur

Liste des modifs, j'ai rajouté un ChDrive au cas ou
Car des explications du genre "ça ne marche pas" ne veulent strictement rien dire : il y a au moins un message d'erreur avec un N° et un arrêt sur une ligne.

Dans Module1 V54

Const DossierRacine As String = "K:\Papa\divers"

Sub Lister()
    .....
    ChDrive DossierRacine
    ListeFichiersDansDossier DossierRacine, True
    Extensions
    .....
End Sub

Dans Module1 V55

Const DossierRacine As String = "K:\Papa\divers"

Sub Lister()
    .....
    ChDrive DossierRacine
    ListeFichiersDansDossier DossierRacine, True
    Extensions
    .....
End Sub

Dans Module2

Const DossierRacine As String = "K:\Papa\divers"

Sub Test()
    .....
    ChDrive DossierRacine
    With Recherche
        .FolderPath = DossierRacine
        .....
End Sub

Sub TheSearcher()
    .....
    ChDrive DossierRacine
    With FileSearcher
        .NewSearch
        .Filename = "*.*"
        .LookIn = DossierRacine
        ....
End Sub

 

[Caninge]

Re : Liste des Extensions sur un disque dur

Re,

excuse-moi je suis nul en macro.

Je ne sais pas ce qu'il faut faire avec les lignes que tu m'as envoyées.

c'est comme si tu me demandais de te tricoter des chaussettes.

c'est pareil. je n'ai jamais tricoté de ma vie.

Je t'envoie un fichier qui fonctionne bien.

Je te demande juste de voir la ligne 6 dans la feuille "récap":

Pourquoi une partie du fichier apparait avec l'extension.

si tu me résouds ce problème tout ira pour le mieux .

Je te remercie.

 

[Caninge]

Re : Liste des Extensions sur un disque dur

Re, mince j'ai oublié le fichier exemple.

 

[kiki29]

Re : Liste des Extensions sur un disque dur

[Alt+F11] pour passer dans l'environnement VBE

Ensuite lire le texte ,Il y a le nom du module et la procédure concernés par les modifs

il y a une Constante DossierRacine à remplacer par la valeur que tu m'as donné
tout le code n'est pas reproduit seule la partie à modifier.

Dans les exemples que je t'ai fourni, V54 et 55 il y a les réponses concernant ces fichiers avec plusieurs points dans leur nom.

Il n'y a qu'en forgeant que l'on devient forgeron.

 

[kiki29]

Re : Liste des Extensions sur un disque dur

Re la dernière, la 72 idem à la 71 sauf boite de dialogue pour sélectionner le dossier à explorer

 

[Caninge]

Re : Liste des Extensions sur un disque dur

Bonsoir à tous
Bonsoir KIKI,

Je viens juste de regarder les 2 fichiers.

Evidemment le deuxième est la cerise sur le gâteau.

Tout fonctionne bien.

Maintenant je vais pouvoir vérifier où se trouve quelques fichiers éparpillés sur les disques durs.

merci.

je remercie également SKOOBI et JCGL.

A une prochaine fois.

 

[kiki29]

Re : Liste des Extensions sur un disque dur

Re, 2 remarques : FileSearch ne te renverra pas toutes les extensions
par exemple url,lic,htt,zip,db,lnk etc.Ce qui n'était pas le cas des 2 autres versions fournies.
FileSearch est environ 4x plus lent
Dans le même genre jeter un oeil sur WinDirStat - Windows Directory Statistics