Arborescence...Résolu

Question

Bonjour,

Dans mon projet, j'ai besoin que l'utilisateur indique un chemin sur un serveur ou un disque. 
je ne souhaite stoker que l'arborescence et pas le nom de fichier. Ce chemin n'est pas constant et j'aimerais l'inserer dans ma base par apprentissage car demander &#224; l'utilisateur de recopier une ligne c:/.../.../... est toujours source d'erreur.
Je pensais utiliser le contr&#244;le common dialog mais dans certain dossier, il n'y aura pas de fichier au d&#233;part donc le contr&#244;le ne fonctionnera pas...

Auriez-vous une solution ?

ma config : Win2000 Access2003 sans possibilit&#233; d'utiliser d'autres OCX que ceux pr&#233;sents &#224; l'origine

Merci de votre aide


Slts,
PhP 70

ShareVB · Accepted Answer

salut,


regarde &#224; l'api SHBrowseForFolder : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/shbrowseforfolder.asp

ShareVB

essaddam · Answer

tu pourais le cr&#233;e avec une tree view qui se construirais avec les repertoires.
(pense a utilis&#233; System.IO.DirectoryInf) 
tu met cela dans un control 
tu creer un new : new (byref reponse as string) 
desol&#233; je manque de temps
alors si tu veux plus de precision dis le d&#233;s que j'aurais un moment, j'essayerais de
develloper. j'espere quand m&#234;me t'avoir mis sur la voie.
@ bient&#244;t
nicolas

php70 · Answer

Merci Nicolas de ton aide.
Je ne suis pas un grand d&#233;veloppeur (en fait c'est mon premier projet ! ) je pensais utiliser le common dialog et ne pas recr&#233;er qqchose de nouveau. La tree view que tu parles et un objet d'access ?
Je ne peux pas ajouter n'importe quoi car apr&#232;s mon appli va tourner sur plusieurs PC et je vais me battre pour r&#233;installer des OCX (ou autre) &#224; chaque Update de notre parc par la DSI.
Je voyais aussi comme solution lorsque mon arborescence est cr&#233;&#233;e de mettre un fichier vide toto.txt, de demander &#224; l'utilisateur de venir le pointer et ensuite moi de stocker seulement la valeur du chemin dans ma base...

Slts,
PhP 70

crenaud76 · Answer

La meilleure option est celel de ShareVB !

Christophe R

ShareVB · Answer

salut,

merci crenaud...

je sais pas si sous Access (2003), on peut ajouter un module de classe (ca m'&#233;tonnerait que non)...mais j'ai une classe (BrowseDialog.cls) qui fait &#231;a avec l'api cit&#233;e : regarde http://www.vbfrance.com/code.aspx?id=8425

ShareVB

crenaud76 · Answer

Sinon, il sera tjs possible d'appeler directement l'API ...

Christophe R

php70 · Answer

Je vous remercie pour toute vos r&#233;ponses, mais j'avoue que je ne sais pas trop utiliser tout &#231;a. Est ce que SHBrowseForFolder est directement dans Access ou dois-je " l'installer " car je dois utiliser Access 2003 brut... livr&#233; de chez microsoft...

Mon souhait c'est :
Clic sur un bouton --> ouverture d'une fen&#234;tre d'exploration -->clic sur ok lorsque l'utilisateur est dans le bon repertoire --> stockage de la donn&#233;e dans une table


Slts,
PhP 70

php70 · Answer

Voici ce que j'ai trouv&#233; sur dans un autre post



Dim SH As New Shell 
Dim ShBFF As Folder


Private Sub Command1_Click()
On Error Resume Next


Set ShBFF = SH.BrowseForFolder(hWnd, "Hey this is a sample, " & _
"please choose a folder and click OK!", 1)
With ShBFF.Items.Item


Text1 = .Path
Text2 = "Name: " & .Name & vbCrLf & _
"Type: " & .Type & vbCrLf & _
"Last Modified: " & .ModifyDate & vbCrLf & _
"Parent: " & .Parent & vbCrLf
End With


End Sub

Ca r&#233;soud en grande partie mon Pb

merci &#224; tous pour votre aide quand j'aurais un peu de temps je creuserai les autres diff&#233;rentes pistes


Slts,
PhP 70

Arborescence...

8 réponses

Discussions similaires