Discussion :

[eliot.raymond]

Bonjour a tous, bonjour forum

Avec ce code j'affiche des infos d'un répertoire (H:\) le nom du fichier et le poids du fichier dans une Listview

je souhaiterai svp afficher également (la durée d'une vidéo)

j'ai mis un code trouver sur le site voir le code ci-dessous mais ca ne fonctionne pas

Si vous avez cette info a me communiquer hé bien serai ravi

Et si possible ou trouver les autres infos concernant les fichiers dans un répertoire, en cas de nouveau besoin

Merci a tous pour votre aide, bon dimanche a vous

Cdlt Ray

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
 
Private Sub UserForm_activate()            'Private Sub UserForm_Initialize()
    Dim Fichier As Object, FSO As Object, C As Range, Ctr As Long, F As Object
        Chemin = "H:\"
    Set FSO = CreateObject("Scripting.FileSystemObject")
 
'*** Définit les entêtes de colonnes
    With ListView1
         With .ColumnHeaders
              .Clear 'Supprime les anciens entêtes
'*** Ajout des colonnes
            .Add , , "Nom fichier", 200
            .Add , , "Taille (ko)", 70, lvwColumnRight
            .Add , , "Durée", 100, lvwColumnLeft
         End With
 
    .View = lvwReport      'affichage en mode Rapport
    .Gridlines = True      'affichage d'un quadrillage
    .FullRowSelect = True 'Sélection des lignes comlètes
    End With
 
'----- Remplissage ListView1 ------------------------
    With ListView1
         For Each Fichier In FSO.GetFolder(Chemin).Files
             Ctr = Ctr + 1
                              .ListItems.Add , , Fichier.Name
                   '.ListItems(Ctr).ListSubItems.Add , , Fichier.Name
                             .ListItems(Ctr).ListSubItems.Add , , Fichier.Size / 1024
 
                  '.ListItems(Ctr).ListSubItems.Add , , ObjFolder.GetDetailsOf(StrFileName, 27) ''(Durée d'une vidéo) mais ca ne fonctionne pas
 
         Next Fichier
    End With
End Sub

[unparia]

Bonjour

mais ca ne fonctionne pas

ne permet pas de savoir ce qui ne va pas ! (dit mille fois).
Quels sont les symptômes précis ? (et si message d'erreur, lequel, exactement ?)

[eliot.raymond]

Salut unparia

Merci pour ta réponse

l'option pour les fichiers c'est bon pour le poids aussi

pour l'affichage de la durée je pense que ce n'ai pas le bon code
j'ai du confondre avec autre chose

sinon pas d'erreur mais la durée ne s'affiche pas

Merci bon dimanche

Cdlt Ray

[clementmarcotte]

Bonjour,

1) Tu vas devoir oublier FSO pour cela, parce que rien dans la documentation de FSO (Script56.chm) ne supporte GetDetailsOf
2) tu n'as créé (instancié) aucun ObjFolder avant de l'appeler.

Tu as un début de solution par là

Le code est en C#, mais tu as au moins le nom de la bibliothèque que tu dois ajouter dans tes références. Ceci dit, tu ne risques probablement rien à lire toute la page.

Ajouté:

En fait, ton objet Folder, c'est celui de Windows et non celui de FSO. Ce sont deux Folder différents.

Tu peux aller voir des exemples su cette page

[eliot.raymond]

Salut a tous,

Merci pour les infos je regarde ca de près

bonne fin d'après midi

Cdlt Ray