[VB6] FileListBox et DirListBox

Bonjour à tous et à toutes,

Alors voilà j'aurai quelques questions :

Dans un premier temps, je voudrai donner un chemin de base de mon choix pour FileListBox.
J'ai utiliser nom_de_mon_objet.Path = ...
ou
Set oFld = oFSO.GetFolder("chemin")

Mais cela ne fonctionne pas

Auriez vous une solution ?


Pour le DirListBox, pour récupérer le répertoire sélectionner par l'utilisateur, je voulais utiliser :

ExtractFilePath


Mais j'obtiens une erreur d'objet manquant.




En vous remerciant,

je ne pense qu'il ait véritablement de problème.essaie ceci

--- pour le FileListBox

Code:

---

1 2 3 4 5 6 7 8 9 10 11

private sub command_Choix_Chemin_FLB on error goto ErrorMsg File1.path=Chemin de ton choix exit sub ErrorMsg if err.number=76 then msgbox "Ce repertoire n'existe pas." else msgbox err.description end if end sub

---

---pour le DirLisBox

Code:

---

1 2 3 4

private sub Evenement_Recuperation ' tu crées un champ text1 text1.text=dir1.path end sub

---

ce n'est pas évident que tu ais des reponses pour ces genres de pb. la prochaine fois, fais des recherches sur les faqs, les tutos et les forums

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Form_Load() Dir1.Path = App.Path ' Définit le chemin initial au démarrage End Sub   Private Sub Dir1_Change() File1.Path = Dir1.Path ' Définit le chemin d'accès du fichier. End Sub   Private Sub Command1_Click() MsgBox Dir1.Path ' Affiche le répertoire sélectionné End Sub

---

Merci à vous.

Cependant, en ce moment, j'ai un problème intermédiaire.

Je vous explique grossièrement le but de l'application:

Nous récupérons un fichier source qui est stocké dans un support amovible qui est connecté à l'aide du "Gestionnaire pour appareils Windows Mobile".

Le problème est que le support n'est pas détecté comme un lecteur logique dans le sens ou il n'y a pas de lettre déterminant ce support.

Voici un full path type du fichier :

Ordinateur\WindowsCE\Applications\Files\monFichier.extension

Cependant, alors que le chemin est valide ( vérifier par plusieurs manipulations dans Windows ), VB ne sait pas interpréter "Ordinateur".

Nous avons cherché s'il n'y avait pas une variable d'environnement sous Windows 7 ou autre pour remplacer Ordinateur au début du path, cependant nous n'avons rien trouvé.
Nous ne pouvons pas non plus assigner à ce support une lettre de lecteur logique.


Auriez vous une solution ?


En vous remerciant,