Macro affichage "durée" fichier

Voir la réponse ici :
https://forums.commentcamarche.net/forum/affich-34239137-comment-accelerer-cette-petite-macro#25
Cordialement
Patrice

Re Raymond,

Je ne comprends pas pourquoi il manque des films sans durée !
Chez moi, je n'ai pas de fichier sans durée qui ne soient pas détectés. il s'agit probablement de cas particuliers.

On va essayer une autre méthode :

' Ajouter une référence à "abcAVI Info Library"
' (barre des menus/Outils/Références...)
Option Explicit
Public Sub Listing_Affiche_la_Durée()
' Liste la durée des films
'
Const chemin$ = "F:\Films\Action"          'Adapter le répertoire
Const nbmax% = 5000                        'Adapter nbre max de films
Dim tag As New abcAVI.ExtendedAVITags
Dim AviInfos As Variant
Dim lgr(1 To nbmax) As Variant
Dim fichier As String
Dim manque As String
Dim début As Single
Dim temps As Single
Dim ctr As Integer
Dim cte As Integer

  début = Timer
  Application.EnableEvents = False
  Range("C1:C" & nbmax).ClearContents
  Range("E1:C" & nbmax).ClearContents
  Application.ScreenUpdating = False
  fichier = Dir(chemin & "\*.avi")
  ctr = 1
  Do While Len(fichier) > 0
    Cells(ctr, 3).Value = fichier
    tag.ReadAVITags chemin & "\" & fichier, PM_Lite_Mode + _
                    PM_Tech_Info, 0, AviInfos
    lgr(ctr) = tag.GetInfo(AviInfos, IDI_Video_Stream, IDV_Duration)
    If IsNumeric(lgr(ctr)) Then
      lgr(ctr) = Val(lgr(ctr)) / (24# * 3600# * 1000#)
    Else
      lgr(ctr) = ""
      cte = cte + 1
      manque = manque & cte & ") Film n° " & ctr & vbCrLf
    End If
    ctr = ctr + 1
    fichier = Dir
  Loop
  Range("C1").Resize(ctr).Value = Application.Transpose(lgr)
  Range("C1").Resize(ctr).NumberFormat = "hh:mm:ss"
  Application.ScreenUpdating = True
  Application.EnableEvents = True
  
  temps = Timer - début
  If manque > "" Then
    manque = "Manque durée de : " & vbCrLf & manque & vbCrLf
    Range("E1").Resize(cte + 1).Value = _
       Application.Transpose(Split(manque, vbCrLf))
  End If
  MsgBox "Terminé en " & Int(temps / 60) & " min. " & _
         Int(temps Mod 60) & " sec. " & _
         Int(temps * 1000 Mod 1000) & " milièmes"
End Sub

Re,

T'es pas cohérent dans tes réponses !

Tu écris : « Sur mon D-D 2009 fichiers exactement sous Windows »

et aux questions suivantes voici tes réponses :
1) Y a-t-il bien autant de lignes que de fichiers (i.e. 2009) en colonne C ?
1) oui exactement 2009 en colonne C

2) Y a-t-il 9 ou 12 lignes sans durée en colonne C ?
2) oui 9 lignes sans durée en colonne C

Et tu dis :
« et moi j'en trouve 12 sur mon DD
il reste 3 fichiers qui n'ont pas de durée et ne sont pas détecter par ton code »

Tu devrais dire l'inverse : Il y a sur mon DD 3 fichiers pour lesquels ton code trouve la durée et que moi je ne trouve pas avec Windows !!!!

Salut Patrice,

Merci pour ta réponse,

J'avais effectivement la réponse mais je n'ai pas penser a remonter les réponses, je suis désoler.

(1) Pour le temps ça c'est bon, ça varie juste entre 2 a 3 secondes et c'est bien comme ca.

(2) Pour le test des fichiers qui n'ont pas une durée, quelque chose ne va pas.

Sur mon DD il ni a que des fichiers avi et absolument rien d'autres.

Quand je test avec le code, il me trouve 9 fichiers qui n'ont pas de durée.

J'ai vérifier si cela correspondais bien avec le répertoire de mon DD et moi, j'en trouve 12 qui n'ont pas de durée.

Bien entendu, j'ai vérifier plusieurs fois et je trouve toujours les mêmes 12 fichiers qui n'ont pas de durée.

Comme sous Windows c'est beaucoup plus long pour afficher la longueur(durée) j'ai rebooter laisser faire tranquillement l'affichage et re essais idem toujours 12 fichiers qui n'ont pas de durée.

Je n'ai rien vu qui serait différents des autres fichiers.

Voila c'est presque bon, je te souhaite une très bonne journée.

Cdlt Raymond

re Patrice

j'ai essayer le dernier code il fonctionne très bien

il trouve toujours 9 fichiers sans durée et pour le temps toujours pareil nickel

et sur mon D-D re vérifiera nouveau il a bien 12 fichiers sans durée donc 3 que le code trouve pas et tout les films sont nommés normalement et en .avi

je comprends pas pourquoi ??

rien bricoler sur le nouveau code

Voila merci a toi

Cdlt Ray

Re

bon je suis un peu perdu du coup

pour j'ai sur mon DD et sous Windows 2009 fichiers

dont 12 fichiers qui n'ont pas de durée

le code trouve 9 fichiers qui n'ont pas de durée

Donc 3 fichiers qui reste sans durée et qui ne sont pas trouver par le code

on va y arriver ihihhiih

Cdlt Ray

Salut Patrice,

J'ai adapter a mon programme et tout fonctionne bien.

Je te dois un énorme merci, je ne serai pas arriver a faire tout ça sans ta précieuse aide.

Encore merci pour ta patience et pour la sympathie de tes réponses, c'est
très apprécier.

Je te salut et a bientôt sans aucun doute.

Bien cordialement Raymond