VBS : tester si un dossier a un "parent"

Question

Bonjour,

Je suis super d&#233;butant et j'ai un gros soucy.
J'ai trouv&#233; comment faire une boite de dialogue pour la recherche de dossiers (VBS) mais j'ai un probleme lorsque le dossier choisi n'a pas de "parentfolder".
J'aurai aim&#233; savoir comment je pouvais tester cela avant de lancer mon:
Result=Item.ParentFolder.ParseName(Item.Title).Path

Voil&#224; le d&#233;but du p'tit script:

BIF_returnonlyfsdirs   = &H0001
BIF_dontgobelowdomain  = &H0002
BIF_editbox            = &H0010
BIF_validate           = &H0020
BIF_browseforcomputer  = &H1000


Dim shell, item


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs 
titre="recherche de dossier"


Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)


Result=Item.ParentFolder.ParseName(Item.Title).Path
MsgBox  Result ,vbInformation + vbOkOnly + vbApplicationModal + 0,"Valeur de la chaine"  



Wscript.quit

Merci d'avance,
SkyZoO

cs_drahcir · Answer

Salut, 

je ne conna&#238;t pas vbs mais avec un

if Item.ParentFolder is Nothing &#231;a peut peut-&#234;tre marcher?

En tout cas, tu peux toujours essayer...

@+

cs_SkyZoO · Answer

ben en fait j'ai d&#233;j&#224; essay&#233; mais ca mais ca me renvoit des erreurs ....
en fait j'ai l'impression qu'il plante d&#232;s qu'il essaie de faire le test.
En gros j'ai des soucis avec les premiers dossiers ( mes documents ... et les partages r&#233;seaux) ....
.... je sais plus quoi tester .... :(

cs_drahcir · Answer

Quel type d'erreur &#231;a te renvoie?
Es-tu s&#251;r que 'Item' n'est pas vide ou nothing?

CTAC · Answer

Bonjour.

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)
on error resume next
Result=Item.ParentFolder.ParseName(Item.Title).Path
Erreur = err.number
on error goto 0
if erreur = 0  then
MsgBox  Result ,vbInformation + vbOkOnly + vbApplicationModal + 0,"Valeur de la chaine"  
else
Msgbox "Orphelin"
end if

ctac

cs_SkyZoO · Answer

argh...
Je viens de v&#233;rifier et il est effectivement l&#224; le souci !!!
quand je choisis "favoris r&#233;seaux" ou "mes documents" il me sort "bureau" en tant qu' Item.ParentFolder !!! ce qui n'est pas normal puisqu'il ne s'agit que de liens. 

De mem lorsque je choisi un poste sur le r&#233;seau il essaie de me reconstruire une arbo du style mon dossier => le poste sur le r&#233;seau => nom du r&#233;seau =>r&#233;seau micrososft windows et l&#224; forc&#233;ment il bloque ....

une id&#233;e ??? 

Merci encore....

SkyZoO

cs_SkyZoO · Answer

Merci CTAC mais comme je viens de l'&#233;crire mon probleme ne se situe pas l&#224; en fait .... Merci qd meme

cs_drahcir · Answer

Je sais pas, est-il possible de faire un filtre sur ce que tu r&#233;cup&#232;res comme nom de dossier?
S'il s'agit de fichiers, ils doivent avoir une extension (diff&#233;rente de celle des liens par exemple->.lnk). Tu peux peut-&#234;tre faire un test la-dessus?
C'est une id&#233;e, elle vaut ce qu'elle vaut...
@+

cs_SkyZoO · Answer

en fait ce qui serait nickel c'est que ma fenetre de recherche ouvre directement et uniquement le Bureau ... si vous voyez ce que je veux dire ... et l&#224; ce serait le bohneur puisqu'il n'y aurait plus de liens windows de ****** :) 
Une id&#233;e?
Merci

cs_drahcir · Answer

peut-&#234;tre dans les param&#232;tres de

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit) ?

cs_SkyZoO · Answer

Ouais effectivement le 4&#232; parametre correspond au "point de montage" ... merci.
Il faudrait que je puisse l'ouvrir directement dans le poste de travail.
Logiquement il existe des pointeurs mais il semblerait que je puisse pas les utiliser en vbs.
Vu qu'en plus il faudrait que ca fonctionne sur du 2000 et de l'XP allemand et francais ... c'est pas simple....
Il faut que je trouve une autre solution...
en tout cas je te remercie de m'avoir mis sur la voie.

VBS : tester si un dossier a un "parent"

10 réponses

Discussions similaires