Changer de repertoire
bimbo777
Messages postés
63
Date d'inscription
mercredi 25 janvier 2006
Statut
Membre
Dernière intervention
17 janvier 2007
-
6 sept. 2006 à 18:15
geobasic Messages postés 69 Date d'inscription jeudi 6 novembre 2003 Statut Membre Dernière intervention 3 octobre 2006 - 8 sept. 2006 à 23:16
geobasic Messages postés 69 Date d'inscription jeudi 6 novembre 2003 Statut Membre Dernière intervention 3 octobre 2006 - 8 sept. 2006 à 23:16
A voir également:
- Changer de repertoire
- Vba changer couleur cellule - Forum Visual Basic 6
- Changer langue visual studio - Forum Visual Basic 6
- Chang a créé son profil sur un forum, en renseignant comme adresse électronique : chang[arobase]pixmail.org pourquoi a-t-il écrit son adresse de cette manière ? - Forum PHP
- Changement de repere ✓ - Forum Visual Basic
- Notepad++ changer police - Forum Visual Basic
4 réponses
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
6 sept. 2006 à 22:05
6 sept. 2006 à 22:05
Bonsoir,
Avec Shell pour ne pas afficher les fichiers.
Je ne sais pas si l'on peut forcer un CommanDialog à s'arrêter sur un Folder.
Le code, ci-dessous, n'est pas de moi.
Il y a une erreur, dans la fonction "IsValue", si l'on ne selectionne pas de Folder.
jean-marc
' ----------------------------------------------------------
' Script VBS de boite de dialogue de sélection de dossier
' JC BELLAMY © 2001
' ----------------------------------------------------------
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="Test de sélection de dossier"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)
If isvalue(Item) Then
Result=Item.Title
' Test si on a sélectionné la racine d'une partition
If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If
wscript.echo "On a choisi : " & Result
else
wscript.echo "On a appuyé sur Annuler"
End If
Wscript.quit
'--------------------------------------------------------------
' Test de validité de l'objet retourné par BrowseForFolder
' On ne peut pas utiliser "IsObject", qui retourne toujours "true"
Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & objIf Err <> 0 Then IsValue False Else IsValue True
On Error GoTo 0
End Function
Avec Shell pour ne pas afficher les fichiers.
Je ne sais pas si l'on peut forcer un CommanDialog à s'arrêter sur un Folder.
Le code, ci-dessous, n'est pas de moi.
Il y a une erreur, dans la fonction "IsValue", si l'on ne selectionne pas de Folder.
jean-marc
' ----------------------------------------------------------
' Script VBS de boite de dialogue de sélection de dossier
' JC BELLAMY © 2001
' ----------------------------------------------------------
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="Test de sélection de dossier"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)
If isvalue(Item) Then
Result=Item.Title
' Test si on a sélectionné la racine d'une partition
If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If
wscript.echo "On a choisi : " & Result
else
wscript.echo "On a appuyé sur Annuler"
End If
Wscript.quit
'--------------------------------------------------------------
' Test de validité de l'objet retourné par BrowseForFolder
' On ne peut pas utiliser "IsObject", qui retourne toujours "true"
Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & objIf Err <> 0 Then IsValue False Else IsValue True
On Error GoTo 0
End Function
bimbo777
Messages postés
63
Date d'inscription
mercredi 25 janvier 2006
Statut
Membre
Dernière intervention
17 janvier 2007
7 sept. 2006 à 10:07
7 sept. 2006 à 10:07
Re,
Merci de ta réponse!
C'est très compliqué ds donc, d'une ligne de code on passe à tout ca???
Y-a t'il un moyen plus simple?
Merci de ta réponse!
C'est très compliqué ds donc, d'une ligne de code on passe à tout ca???
Y-a t'il un moyen plus simple?
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
7 sept. 2006 à 12:48
7 sept. 2006 à 12:48
Bonjour,
Plus simple, oui, c'est possible.
Une simple InputBox signifiant à l'utilisateur de saisir son path & folder.
Ce qui implique que l'utilisateur connaisse le chemin exact (de mémoire).
Cette solution, de msgbox, n'est pas fiable.
jean-marc
Plus simple, oui, c'est possible.
Une simple InputBox signifiant à l'utilisateur de saisir son path & folder.
Ce qui implique que l'utilisateur connaisse le chemin exact (de mémoire).
Cette solution, de msgbox, n'est pas fiable.
jean-marc
geobasic
Messages postés
69
Date d'inscription
jeudi 6 novembre 2003
Statut
Membre
Dernière intervention
3 octobre 2006
8 sept. 2006 à 23:16
8 sept. 2006 à 23:16
Salut,
Tu peux aussi utiliser le control CommonDialog qui est trés simple d'utilisation.
Tu peux aussi utiliser le control CommonDialog qui est trés simple d'utilisation.
