none
VBA ecel propriété fichier RRS feed

  • Question

  • Bonjour,

    Afin de récupérer les propriétés d'un fichier ai créé le pgr :

    Sub proprietesFichiers()
        chemin = "D:\Films\Z\": fichier = "FR3 - Le jour le plus long (1962) - 2019-06-03.20.55.AVI"
        Dim Shl As Object, fichier0 As Object
        Set Shl = CreateObject("Shell.Application")
        Set Folder = Shl.Namespace(chemin)
        Set fichier0 = Folder.Items.Item(fichier)
    ....

    et qui fonctionne

    ai voulu l'intégrer dans un programme et le pgr ci-dessus devient une fonction :

    Function Dure(ByVal Chemin As String, ByVal Fichier As String, index As Integer) As Date
    'Activer la référence Microsoft Shell Controls and Automation
        Dim Shl As Object, fichier0 As Object
        Set Shl = CreateObject("Shell.Application")
        Set Folder= Shl.Namespace(Chemin)
        Set fichier0 = Dossier.Items.Item(Fichier)

    Ai vérifié que Chemin contient bien "D:\Films\Z\" et malgré cela Folder ne contiendra rien au lieu de "Z" et cela plante le programme.

    Que se passe-t-il ? Comment y remédier ?

    Cordialement

    Richard

    samedi 10 août 2019 14:48