Discussion :

[gwen2good]

Bonsoir à tous,

grande débutant en VBA, j'ai déjà réussi à lister tous les fichiers présents dans un répertoire et en récupérer diverses informations telles que le nom, la taille etc. Mais je ne vais traiter que des .swf ou des .mov et j'aimerais en plus du nom et de la taille, récupérer aussi la durée (TotalFrames) de chacun de ces fichiers.

Merci d'avance et j'espère avoir été claire.

Gwen

[kiki29]

Salut, pour les propriétés regarde ici et adapte à ton contexte, sinon voir aussi : Liste des fichiers d'un dossier ( via les APIs )

[gwen2good]

merci beaucoup pour ta réponse, ça m'ouvre de nombreuses possibilités!

je vais mettre de côtés les .swf pour l'instant et me concentrer sur les .mov, je travaille actuellement sur
1/ selectionner un repertoire (fait)
2/ lister les fichiers de ce repertoire (fait)
3/ dans la liste qu'il me donne aussi la durée des fichiers (en cours...)

j'ai du mal à imbriquer les choses!

j'y retourne!

merci encore

[kiki29]

Salut, j'arrive à cela en mixant les fichiers dont les liens sont donnés plus haut

[gwen2good]

j'ai reussi! merci!

du coup pour info au cas ou je poste mon 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
73
74
Sub Selfichierpatapon()
 
 
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
 
 
Dim iRow As Long
 
  With fd
    .AllowMultiSelect = True
      If .Show = -1 Then
 
               If Not bNotFirstTime Then
                     Set wksDest = ActiveSheet ' A adapter
                     'Set FSO = CreateObject("Scripting.FileSystemObject")
                            With wksDest
                            .Cells(1, 1) = "Nom sans extension"
                            .Cells(1, 2) = "Durée"
                            .Cells(1, 3) = "Date Cré"
 
 
                            End With
                    iRow = 2
                    bNotFirstTime = True
                End If
 
 
          For Each vrtSelectedItem In .SelectedItems
 
             Dim sFichier As String
             Dim FSO As Object
             Dim oFichier As Object
             Dim objShell As Shell32.Shell
             Dim objFolder As Shell32.Folder
             Dim strFileName As Shell32.FolderItem
             Dim Chemin As String, sNomFich As String
 
             Set FSO = CreateObject("Scripting.FileSystemObject")
 
             Set oFichier = FSO.GetFile(vrtSelectedItem)
             Chemin = FSO.GetParentFolderName(oFichier)
             sNomFich = FSO.GetFileName(oFichier)
 
 
             Set objShell = CreateObject("Shell.Application")
             Set objFolder = objShell.Namespace(Chemin)
             Set strFileName = objFolder.Items.Item(sNomFich)
 
 
                If strFileName.IsFolder = False Then
                    If objFolder.GetDetailsOf(objFolder.Items, i) <> "" Then
                        With ActiveSheet
                            .Cells(iRow, 1) = Left(objFolder.GetDetailsOf(strFileName, 0), InStr(objFolder.GetDetailsOf(strFileName, 0), ".") - 1)
                            .Cells(iRow, 2) = objFolder.GetDetailsOf(strFileName, 27)
                            .Cells(iRow, 3) = objFolder.GetDetailsOf(strFileName, 4)
                         End With
 
                    End If
                End If
                     iRow = iRow + 1
                 '    MsgBox "valeur de iRow: " & iRow
            Next vrtSelectedItem
            Else
      End If
  End With
 
    Set strFileName = Nothing
    Set objFolder = Nothing
    Set objShell = Nothing
    Set oFichier = Nothing
    Set FSO = Nothing
end sub

il me reste encore à pouvoir recuperer la durée en frame et pas en seconde, car par exemple j'ai un fichier qui fait 5secondes et 12f et je n'arrive à recuperer qu'une durée de 5 secondes

[kiki29]

Salut, j'ai posté ceci : Liste des propriétés de fichiers qui renvoie à un téléchargement.

En 305 : Fréquence d’images en Trames/s
En 27 : Longueur en hh:mm:ss
donc une conversion en secondes puis une simple multiplication te fournira le nombre total de Trames ?