retour boucle si variable vide

Version imprimable

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

Code:

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:

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 ?

25/02/2008, 09h50
ced600

passe ton sub en function qui renvois le path.
25/02/2008, 11h58
koKoTis

je ne comprend pas :oops:
25/02/2008, 12h10
ced600
Citation:

Envoyé par koKoTis

je ne comprend pas :oops:

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:

1 2 3 if Folder.items.Item.Path = "" then boucle1 BrowseAndCreate = Folder.items.Item.Path
Deviendra un truc comme :
Code:

1 2 3 if Folder.items.Item.Path = "" then BrowseAndCreate = boucle1
et tu finis la fonction par :

Code:

boucle1 = BrowseAndCreate

je ne sais pas ou placer les ligne:

Code:

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

Code:

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

25/02/2008, 12h53
koKoTis

comme ca le script ne fait rien du tout

heu oui faut appeler la fonction :

Code:

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

ca ne fonctionne pas:

Code:

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

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

Code:

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.

25/02/2008, 14h36
koKoTis

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

c'est parfait :D

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

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