J'essaye d'obtenir le nom d'un dossier et j'utilise la methode ci-dessous sur PC, mais sur pocket PC j'ai cette erreur :

COM object with CLISD '{xxxxxxxxxxxxxxx}' Class not registered

a la commande :

Dim FSO_Dossier As New Scripting.FileSystemObject 'stocke l'objet du fso

Voici mon code complet, peut etre y'a t'il une variante :

Dim FSO_Dossier As New Scripting.FileSystemObject 'stocke l'objet du fso

        Dim INT_For1 As Short 'stocke les valeurs de la boucle For->Next

        If Microsoft.VisualBasic.Right(repertory, 1) <> "\" Then repertory = repertory & "\" 'repertory c'est mon string path

        ReDim STR_Nom_Fichier_Copier(0)        'on redimensionne la liste des noms de fichiers

        PRO_Remplir_Liste_Dossier(FSO_Dossier.GetFolder(repertory))        'on récupère les fichiers du dossier et du sous dossier

         For INT_For1 = 2 To UBound(STR_Nom_Fichier_Copier)        'on copie chaque fichier de la liste de fichier

                DIM Mon_repertoire as string = STR_Nom_Fichier_Copier(INT_For1)
               
         Exit Sub