Page 1 sur 1
[..] Recherche d'un dossier
Posté : mar. 06 juil. 2010 09:22
par Reduuxx
Bonjour
Je cherche à cliquer sur le dossier mes documents de l'image ce dessous. Par défaut, on arrive sur c:.
Merci de votre aide
Reduuxx
Re: [..]Recherche d'un dossier
Posté : mar. 06 juil. 2010 09:37
par alex1205
Essaye ça:
Code : Tout sélectionner
FileSelectFolder("Selectionnez le chemin", SetDocumentDir())
Func SetDocumentDir()
Return "C:\Users\"&@UserName&"\Documents"
EndFunc
J'aurai préféré que tu es regardé l'aide.
Alex1205
Re: [..]Recherche d'un dossier
Posté : mar. 06 juil. 2010 10:10
par Reduuxx
Bonjour,
Pour l'aide je l'ai bien regardé et ta solution (que j'avais vue) ne convient pas car :
Tu me donne un lien seven...(la copie ecran est sur xp...)
Mes documents est déporter sur un lecteur réseau dont le nom change en fonction de l'os client.
Reduuxx
Code : Tout sélectionner
FileSelectFolder("Selectionnez le chemin", SetDocumentDir())
Func SetDocumentDir()
Return "C:\Users\"&@UserName&"\Documents"
EndFunc
J'aurai préféré que tu es regardé l'aide.
Alex1205[/quote]
Re: [..]Recherche d'un dossier
Posté : mar. 06 juil. 2010 10:16
par keltharak
il y a normalement des codes CLSID dans windows pour ça :
Code : Tout sélectionner
FileSelectFolder("Selectionnez le chemin :", "::{450D8FBA-AD25-11D0-98A8-0800361B1103}")
Il me semble avoir déjà fait qqch comme ça mais j'ai lancé vite fait la commande et je n'arrive pas à le faire pointer sur autre chose que le poste de travail.
en tout cas voila une autre piste.
(recherche "CLSID List" dans l'aide)
Re: [..]Recherche d'un dossier
Posté : mar. 06 juil. 2010 11:00
par Iste
et
Code : Tout sélectionner
FileSelectFolder("Selectionnez le chemin", @DocumentsCommonDir)
??
Re: [..]Recherche d'un dossier
Posté : mar. 06 juil. 2010 11:05
par keltharak
C'est une demi solution, on sera bien dans le bon dossier dans le sens ou on vera les fichiers contenu dans "mes documents" mais on ne sera pas sur le raccourci "Mes documents" comme présenté sur le screenshot.
Re: [..]Recherche d'un dossier
Posté : mar. 06 juil. 2010 11:52
par ZDS
Hello!
Ce qu'Iste devait vouloir dire à mon sens, c'est que ton problème n'est pas clair du tout. Tu parles de raccourcis, mais je n'en vois aucun. Par contre on te parle de sélection de dossier et tu nous parles de cliquer dessus... Je m'y perds un chouia tellement ça a l'air simple à faire et compliqué à expliquer en même temps.
Ta fenetre (du screenshot) est-elle dans le même script que celui dans le quel tu cherches à chopper le dossier 'Mes Documents'? As tu vraiment besoin de l'arborescence parente?
Bref, je pense voir à moitié de quoi tu parles, et je te propose donc deux solutions toutes deux liées à un paramètre "initial dir" que tu aurais du voir si tu avais lu la doc sur les paramètres de FileSelectFolder jusqu'au bout ^^ (mais je te comprends, quand je regarde un CV, je lis pas ce qui suit les mensurations
)
Code : Tout sélectionner
FileSelectFolder("Selectionnez le chemin", "", Default, "::{450D8FBA-AD25-11D0-98A8-0800361B1103}")
FileSelectFolder("Selectionnez le chemin", "", Default, @DocumentsCommonDir)
Si je ne me trompe pas, c'est le premier dont tu as besoin, le second déplie l'arborescence de C:\Docs & Sets et je ne crois pas que ce soit ton but.
A bientôt !
Re: [..]Recherche d'un dossier
Posté : mar. 06 juil. 2010 12:00
par keltharak
A sa décharge c'est moi qui ai parlé de raccourci...
Et je pense comme toi que c'est le premier exemple dont il a besoin, sauf qu'il m'en manquait un bout ! ^^
Re: [..] Recherche d'un dossier
Posté : jeu. 08 juil. 2010 16:40
par alex1205
Et ça :
Code : Tout sélectionner
FileSelectFolder("Selectionnez le chemin", SetDocumentDir("", ""))
Func SetDocumentDir($OS, $ordinom)
If $OS = "XP" Or "xp" Or "Win5" Then
$utilisateur = $ordinom
$nomreseau = "\\" & $utilisateur & "\c$\Documents and Settings\" & @UserName & "\Mes Documents\"
Return $nomreseau
ElseIf $OS = "Seven" Or "Vista" Or "SEVEN" Or "VISTA" Or "seven" Or "vista" Or "Win7" Or "Win6" Then
$utilisateur = $ordinom
$nomreseau = "\\" & $utilisateur & "\c$\Users\" & @UserName & "\Documents\"
Return $nomreseau
EndIf
EndFunc ;==>SetDocumentDir