Discussion :

[koKoTis]

Bonjour, j'ai un script pour selectionner un répertoire:

Code :

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

1
2
3
4
5
Const BIF_EDITBOX = &H10 
Const BIF_NEWDIALOGSTYLE = &H40 
Set sa = CreateObject("Shell.Application") 
Set Folder = sa.BrowseForFolder(0, "My Computer:", BIF_EDITBOX Or BIF_NEWDIALOGSTYLE) 
BrowseAndCreate = Folder.items.Item.Path

Je voudrai que si l'utlisateur ne selectionne pas de répertoire la fenêtre se réouvre, j'ai essayer comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
sub boucle1
 
Const BIF_EDITBOX = &H10 
Const BIF_NEWDIALOGSTYLE = &H40 
Set sa = CreateObject("Shell.Application") 
Set Folder = sa.BrowseForFolder(0, "My Computer:", BIF_EDITBOX Or BIF_NEWDIALOGSTYLE) 
if Folder.items.Item.Path = "" then boucle1 
 
BrowseAndCreate = Folder.items.Item.Path 
 
end sub

mais ca ne fonctionne pas, sauriez vous m'aider ?

[ced600]

passe ton sub en function qui renvois le path.

[koKoTis]

je ne comprend pas

[ced600]

je ne comprend pas

Bah plutot qu'utiliser un sub fait une fonction. Celle-ci te permet de renvoyer une valeur à la fin de son exécution.
renvois le path comme valeur.

Ceci :

Code :

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

1
2
3
if Folder.items.Item.Path = "" then boucle1 
 
BrowseAndCreate = Folder.items.Item.Path

Deviendra un truc comme :

Code :

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

1
2
3
if Folder.items.Item.Path = "" then
 
BrowseAndCreate = boucle1

et tu finis la fonction par :

Code :

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

boucle1 = BrowseAndCreate

[koKoTis]

je ne sais pas ou placer les ligne:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Const BIF_EDITBOX = &H10 
Const BIF_NEWDIALOGSTYLE = &H40 
Set sa = CreateObject("Shell.Application") 
Set Folder = sa.BrowseForFolder(0, "My Computer:", BIF_EDITBOX Or BIF_NEWDIALOGSTYLE) 
BrowseAndCreate = Folder.items.Item.Path 
 
if Folder.items.Item.Path = "" then
 
BrowseAndCreate = boucle1
 
boucle1 = BrowseAndCreate

[ced600]

Code :

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

1
2
3
4
5
6
7
8
9
10
Set sa = CreateObject("Shell.Application")
Function boucle1 (sa)
   Const BIF_EDITBOX = &H10 
   Const BIF_NEWDIALOGSTYLE = &H40  
   Set Folder = sa.BrowseForFolder(0, "My Computer:", BIF_EDITBOX Or BIF_NEWDIALOGSTYLE) 
   If Folder.items.Item.Path = "" Then
      BrowseAndCreate = boucle1 (sa)
   End If
   boucle1 = BrowseAndCreate 
End Function

?

[koKoTis]

comme ca le script ne fait rien du tout

[ced600]

heu oui faut appeler la fonction :

Code :

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

1
2
3
4
dim retour
Set sa = CreateObject("Shell.Application")
retour = boucle1(sa)
wscript.echo retour

[koKoTis]

ca ne fonctionne pas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
dim retour
Set sa = CreateObject("Shell.Application")
retour = boucle1(sa)
wscript.echo retour
 
Set sa = CreateObject("Shell.Application")
Function boucle1 (sa)
   Const BIF_EDITBOX = &H10 
   Const BIF_NEWDIALOGSTYLE = &H40  
   Set Folder = sa.BrowseForFolder(0, "My Computer:", BIF_EDITBOX Or BIF_NEWDIALOGSTYLE) 
   If Folder.items.Item.Path = "" Then
      BrowseAndCreate = boucle1 (sa)
   End If
   boucle1 = BrowseAndCreate 
End Function

[ced600]

Bon grâce à notre bel ami (je sais suis pas drôle), j'ai trouvé comment faire ce que tu souhaites :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
dim retour
Set sa = CreateObject("Shell.Application")
retour = boucle1(sa)
wscript.echo retour
 
Function boucle1 (sa)
	Dim Folder
	Const BIF_EDITBOX = &H10 
	Const BIF_NEWDIALOGSTYLE = &H40  
	Set Folder = sa.BrowseForFolder(0, "My Computer:", BIF_EDITBOX Or BIF_NEWDIALOGSTYLE)
	If not IsValue(Folder) Then
		BrowseAndCreate = boucle1 (sa)
	Else
		BrowseAndCreate = Folder.items.Item.Path
	End If
	boucle1 = BrowseAndCreate
End Function
 
Function IsValue(obj)
	Dim tmp
	On Error Resume Next
	tmp = " " & obj
	If Err <> 0 Then
		IsValue = False
	Else
		IsValue = True
	End If
	On Error GoTo 0
End Function

Je ne suis pas fan de sa fonction IsValue, mais s'il a fait ainsi il est possible que je me casse les dents en tentant de faire autrement.

[koKoTis]

ben alor merci a notre bel ami, est a toi aussi

c'est parfait

[koKoTis]

saurait tu faire la même chose avec ce code je n'y arrive pas ?

Code :

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

1
2
3
set objDialog = CreateObject("SafrcFileDlg.FileOpen") 
objDialog.OpenFileOpenDlg 
wscript.echo objDialog.FileName