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