Discussion :

[yore34]

Bonjour,

J'ai un petit soucis et je n'arrive pas à le solutionner (je suis un débutant).

J’ai plusieurs dossiers et sous-dossiers avec différents types fichiers à l’intérieurs, exemple :
E:\TestVersion\Dossier01\fichiersousdossier.html
E:\TestVersion\fichier01.vbs
E:\TestVersion\fichier02.txt
E:\TestVersion\fichier03.EXE
J’aimerais que dans un tableau Excel (exemple ci-joint TestVersion.xlsm), il me récupère le nom du fichier (colonne B), la date de dernière modification (colonne C) et (si disponible) la version du fichier (Colonne D). Ces infos doivent être en lien avec les infos attendues des colonnes E, F et G.

En gros je souhaite vérifier que j'ai les bons fichiers sur mon PC.

Si une âme charitable pouvait me dépanner.

Bonne journée

[MarcelG]

Salut,

Regarde la FAQ sur ce point.
Si le type de fichier est son extension (.xlsm), alors tu obtiendras celui-ci par la méthode Split.

[yore34]

Salut MarcelG,

Merci pour ta réponse ultra rapide, difficile d'être plus efficace.

Effectivement j'avais vu cette solution qui marche très bien pour le nom et la date de dernière modif.
Par contre pour ce qui est de la version du fichier, je n'arrive pas à l'intégrer.

[MarcelG]

Salut,

Je n'ai pas ouvert ton classeur.
Qu'entends-tu par version?
S'il s'agit de son extension (exemple "xlsx" pour "monclasseur.xlsx") alors tu peux affecter, comme je l'ai signalé, la méthode Split au nom du fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim a As Variant, letype as variant 
a = Split(lenom,".")
letype = a(Ubound(a))

[patricktoulon]

bonjour
un petit exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    Dim objFSO, f, s$, fichier$
    fichier = "C:\Program Files (x86)\epson\Epson Scan 2\Setup\setup.exe"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set f = objFSO.GetFile(fichier)
    s = "Nom: " & f.Name & vbCrLf
    s = s & "extention: " & objFSO.GetExtensionName(fichier) & vbCrLf
    s = s & "version: " & objFSO.GetFileVersion(fichier) & vbCrLf
    s = s & "Created: " & f.DateCreated & vbCrLf
    s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
    s = s & "Last Modified: " & f.DateLastModified
    MsgBox s, 0, "info du fichier"
End Sub

attention avec les fichiers consomables (txt,xls,etc...(tout fichiers que tu aurais eventuellement créé)) GetFileVersion ne renvoie rien et pour cause cette propriété n'existe pas

[yore34]

Salut,

Je n'ai pas ouvert ton classeur.
Qu'entends-tu par version?
S'il s'agit de son extension (exemple "xlsx" pour "monclasseur.xlsx") alors tu peux affecter, comme je l'ai signalé, la méthode Split au nom du fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim a As Variant, letype as variant 
a = Split(lenom,".")
letype = a(Ubound(a))

Par version j’entends l'attribut que tu as quand tu regardes les propriétés du fichier (quand tu fais clic droit/propriété).

Je me suis mal exprimé, excuse moi.
Je précise qu'il y aura aussi des dll et autre (mon dossier test n'est juste qu'un exemple).

patricktoulon, tu m'as apporté une bonne solution et je t'en remercie.
Maintenant, faut que je trouve le moyen de lier mon tableau à ton script.

[MarcelG]

Salut,

Outre la FAQ, une autre piste en utilisant Shell.
Ici, la variable I retourne l'index des caractéristiques de chaque fichier.
(Voir zone de commentaires en début de code)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Sub Test()
 
'0    Nom
'1    Taille
'2    Type d’élément
'3    Modifié le
'4    Date de création
'5    Date d’accès
'6    Attributs
'7    État hors connexion
'8    Hors connexion
'9    Type identifié
'10  Propriétaire
'11  Sorte
'12  Prise de vue
'13  Artistes ayant participé
'14  Album
'15  Année
'16  Genre
'17  Chefs d’orchestre
'18  Mots -clés
'19  Notation
'20  Auteurs
'21  Titre
'22  Objet
'23  Catégories
'24  Commentaires
'25  Copyright
'26  N°
'27  Longueur
'28  Vitesse de transmission
'29  Protégé
'30  Modèle d 'appareil photo
'31  Dimensions
'32  Appareil photo
'33  Entreprise
'34  Description du fichier
'35  Nom du programme
'36  Durée
'37  Connecté
'38  Périodique
'39  Emplacement
'40  Adresses des participants facultatifs
 
    Dim I As Long, Ligne As Long, n As Byte
    Dim sFile As Variant
    Dim oShell: Set oShell = CreateObject("Shell.Application")
    Dim oDir:   Set oDir = oShell.Namespace("le chemin complet dudossier à traiter")
    Ligne = 2
 
 Application.ScreenUpdating = False
 
    For Each sFile In oDir.Items
        n = n + 1
        'Test si l'on souhaite récupérer les caractéristiques des 10 premiers indec
        If n = 10 Then Exit Sub
 
        With Worksheets(1)
        For I = 0 To 60
            'indice de la caractéristique
            .Range("A" & Ligne) = I
            'nature de la caractéristique
            .Range("B" & Ligne) = oDir.GetDetailsOf(oDir.Items, I)
            'caractéristique : pour auteur i = 20
            .Range("C" & Ligne) = oDir.GetDetailsOf(sFile, I)
            Ligne = Ligne + 1
        Next
        Ligne = Ligne + 1 'pour séparer les blocs
        End With
 
    Next
End Sub