Discussion :

[JoeS_]

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,

[melancolie]

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

--- pour le FileListBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ThierryAIM]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[JoeS_]

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,