Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Scripting Microsoft VBS pourquoi ce programme ne fonctionne pas ?urgent svp !

VBS pourquoi ce programme ne fonctionne pas ?urgent svp !

5 réponses
Avatar
HeLioZz
voici mon programe et ne se lance pas !
comment faire ?si quelqu un sait pourquoi?

Rep = MsgBox ("Etes vous sur de vouloir configurer le serveur pour les
sauvegardes ?", vbQuestion Or vbOkCancel, "lancement de la configuration du
serveur")
if Rep = vbOk then

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="Sélectionnez le chemin a sauvegarder"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)
If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, testfile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("c:\direction.txt", True)
testfile.WriteLine result
testfile.Close

else
msgbox "vous avez appuyé sur Annuler"

End If

Wscript.quit

Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then IsValue = False Else IsValue = True
On Error GoTo 0
End Function

else
WScript.Quit
end if

reselect=MsgBox("voulez vous faire d autres selections ?",vbQuestion +
vbOKCancel + vbApplicationModal + 0,"autres selections ?")
if reselect = vbOk then

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="Sélectionnez le chemin a sauvegarder"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)
If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, testfile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("c:\direction.txt", True)
testfile.WriteLine result
testfile.Close

else
msgbox "vous avez appuyé sur Annuler"

End If

Wscript.quit

Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then IsValue = False Else IsValue = True
On Error GoTo 0
End Function

dest = msgbox "le chemin de destination des fichiers va vous etre demander"
if dest = vbok then

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="ou sauvegarder ces fichiers?"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)
If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, testfile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("c:\direction.txt", True)
testfile.WriteLine result
testfile.Close

else
msgbox "vous avez appuyé sur Annuler"

End If

Wscript.quit

Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then IsValue = False Else IsValue = True
On Error GoTo 0
End Function
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Georges MAUREL
Bonjour,
Afin de mieux comprendre votre programme, il vous faudrait l'indenter un
peu...
Cela vous permettrait de voir qu'il manque un end if avant le 1°
wscript.quit
De plus la fonction Isvalue existe 2 fois et la 1° se trouve au milieu du
programme.
A vérifier donc...

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
voici mon programe et ne se lance pas !
comment faire ?si quelqu un sait pourquoi?

Rep = MsgBox ("Etes vous sur de vouloir configurer le serveur pour les
sauvegardes ?", vbQuestion Or vbOkCancel, "lancement de la configuration
du
serveur")
if Rep = vbOk then

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="Sélectionnez le chemin a sauvegarder"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)
If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, testfile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("c:direction.txt", True)
testfile.WriteLine result
testfile.Close

else
msgbox "vous avez appuyé sur Annuler"

End If

Wscript.quit

Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then IsValue = False Else IsValue = True
On Error GoTo 0
End Function

else
WScript.Quit
end if

reselect=MsgBox("voulez vous faire d autres selections ?",vbQuestion +
vbOKCancel + vbApplicationModal + 0,"autres selections ?")
if reselect = vbOk then

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="Sélectionnez le chemin a sauvegarder"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)
If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, testfile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("c:direction.txt", True)
testfile.WriteLine result
testfile.Close

else
msgbox "vous avez appuyé sur Annuler"

End If

Wscript.quit

Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then IsValue = False Else IsValue = True
On Error GoTo 0
End Function

dest = msgbox "le chemin de destination des fichiers va vous etre
demander"
if dest = vbok then

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="ou sauvegarder ces fichiers?"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)
If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, testfile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("c:direction.txt", True)
testfile.WriteLine result
testfile.Close

else
msgbox "vous avez appuyé sur Annuler"

End If

Wscript.quit

Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then IsValue = False Else IsValue = True
On Error GoTo 0
End Function




Avatar
HeLioZz
j avoue ne pas bien comprendre...
je ne vois pas ou il manque un end if...
si vous avez la possibiliter d m eguiller un peu ce serait tres sympa !

"Georges MAUREL" wrote:

Bonjour,
Afin de mieux comprendre votre programme, il vous faudrait l'indenter un
peu...
Cela vous permettrait de voir qu'il manque un end if avant le 1°
wscript.quit
De plus la fonction Isvalue existe 2 fois et la 1° se trouve au milieu du
programme.
A vérifier donc...

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
voici mon programe et ne se lance pas !
comment faire ?si quelqu un sait pourquoi?

Rep = MsgBox ("Etes vous sur de vouloir configurer le serveur pour les
sauvegardes ?", vbQuestion Or vbOkCancel, "lancement de la configuration
du
serveur")
if Rep = vbOk then

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="Sélectionnez le chemin a sauvegarder"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)
If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, testfile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("c:direction.txt", True)
testfile.WriteLine result
testfile.Close

else
msgbox "vous avez appuyé sur Annuler"

End If

Wscript.quit

Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then IsValue = False Else IsValue = True
On Error GoTo 0
End Function

else
WScript.Quit
end if

reselect=MsgBox("voulez vous faire d autres selections ?",vbQuestion +
vbOKCancel + vbApplicationModal + 0,"autres selections ?")
if reselect = vbOk then

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="Sélectionnez le chemin a sauvegarder"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)
If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, testfile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("c:direction.txt", True)
testfile.WriteLine result
testfile.Close

else
msgbox "vous avez appuyé sur Annuler"

End If

Wscript.quit

Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then IsValue = False Else IsValue = True
On Error GoTo 0
End Function

dest = msgbox "le chemin de destination des fichiers va vous etre
demander"
if dest = vbok then

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="ou sauvegarder ces fichiers?"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)
If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, testfile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("c:direction.txt", True)
testfile.WriteLine result
testfile.Close

else
msgbox "vous avez appuyé sur Annuler"

End If

Wscript.quit

Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then IsValue = False Else IsValue = True
On Error GoTo 0
End Function









Avatar
Georges MAUREL
Re bonjour,
Ok, voici le code que vous avez transmis. J'ai inséré une indication...

Rep = MsgBox ("Etes vous sur de vouloir configurer le serveur pour les
sauvegardes ?", vbQuestion Or vbOkCancel, "lancement de la configuration du
serveur")
if Rep = vbOk then
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="Sélectionnez le chemin a sauvegarder"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)
If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, testfile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("c:direction.txt", True)
testfile.WriteLine result
testfile.Close

else
msgbox "vous avez appuyé sur Annuler"
End If

************************
=> Il manquerait le end if ici; si le end if ne doit pas se trouver ici,
alors la fonction IsValue ne doit pas se trouver ici mais après (séparée de
la partie principale de votre script
*********************
Wscript.quit

Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then
IsValue = False
Else
IsValue = True
On Error GoTo 0

End Function

else
WScript.Quit
end if
......

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
j avoue ne pas bien comprendre...
je ne vois pas ou il manque un end if...
si vous avez la possibiliter d m eguiller un peu ce serait tres sympa !

"Georges MAUREL" wrote:

Bonjour,
Afin de mieux comprendre votre programme, il vous faudrait l'indenter un
peu...
Cela vous permettrait de voir qu'il manque un end if avant le 1°
wscript.quit
De plus la fonction Isvalue existe 2 fois et la 1° se trouve au milieu du
programme.
A vérifier donc...

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
voici mon programe et ne se lance pas !
comment faire ?si quelqu un sait pourquoi?

Rep = MsgBox ("Etes vous sur de vouloir configurer le serveur pour les
sauvegardes ?", vbQuestion Or vbOkCancel, "lancement de la
configuration
du
serveur")
if Rep = vbOk then

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="Sélectionnez le chemin a sauvegarder"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)
If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, testfile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("c:direction.txt", True)
testfile.WriteLine result
testfile.Close

else
msgbox "vous avez appuyé sur Annuler"

End If

Wscript.quit

Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then IsValue = False Else IsValue = True
On Error GoTo 0
End Function

else
WScript.Quit
end if

reselect=MsgBox("voulez vous faire d autres selections ?",vbQuestion +
vbOKCancel + vbApplicationModal + 0,"autres selections ?")
if reselect = vbOk then

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="Sélectionnez le chemin a sauvegarder"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)
If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, testfile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("c:direction.txt", True)
testfile.WriteLine result
testfile.Close

else
msgbox "vous avez appuyé sur Annuler"

End If

Wscript.quit

Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then IsValue = False Else IsValue = True
On Error GoTo 0
End Function

dest = msgbox "le chemin de destination des fichiers va vous etre
demander"
if dest = vbok then

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="ou sauvegarder ces fichiers?"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)
If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, testfile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("c:direction.txt", True)
testfile.WriteLine result
testfile.Close

else
msgbox "vous avez appuyé sur Annuler"

End If

Wscript.quit

Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then IsValue = False Else IsValue = True
On Error GoTo 0
End Function











Avatar
Jean-Claude BELLAMY
Dans le message news: ,
HeLioZz s'est ainsi exprimé:

voici mon programe et ne se lance pas !
comment faire ?si quelqu un sait pourquoi?
[....]



Ouh la la !!!!

La condition SINE QUA NON pour développer (quel que soit le langage) est
d'avoir l'esprit le plus SIMPLE possible !
On ne peut pas dire que ce soit ton cas ! ;-)


Et j'ai la très forte impression que tu procèdes exclusivement par "recette
de cuisine", à coup de copier-coller, sans vraiment réfléchir à ce que tu
fais.

En particulier, tu n'as pas du tout structuré LOGIQUEMENT ton programme.

P.ex., vers la ligne 33, juste avant le début de la fonction "Isvaleur", on
trouve l'instruction "wscript.quit", donc tout ce qui suit (sous-programmes
et fonctions exclus) ne pourra jamais être traité !

Ensuite, après le "end fonction" de IsValue, on y trouve le "else" associé
au "if Rep = vbOk" du début.
On n'interrompt JAMAIS un bloc "If ..then ..else... end if" par un
sous-programme !
Ton programme devient complètement ILLISIBLE avec des méthodes de cosaque
pareilles ! ;-)

Ensuite, après le "reselect=MsgBox.." tu redéclares une série de constantes,
définie au début du programme!
C'est totalement inutile et çà sème la confusion.
Mais le pire est juste après quand tu redéfinis "Dim shell, item" , ce qui
est refusé à la compilation, et c'est normal!

Des objets tels que "Shell.Application", "Scripting.FileSystemObject", ...
çà se définit une fois pour toutes au début du programme !

Et on ne peut pas avoir 2 instructions "Dim" identiques dans la même étendue
d'un programme.
On peut certes avoir "Dim x" dans le programme principal et "Dim x" dans un
sous-programme, mais c'est très mauvais au niveau compréhension et
lisibilité.
Et si on veut modifier le dimensionnement, à ce moment là on utilise la fois
suivante l'instruction "Redim"
dim x(10)
....
redim x(25)
...

Ensuite, je découvre que ce qui suit le "reselect=MsgBox.." est IDENTIQUE
au début du programme !
Et les boucles, les sous programmes, çà sert à quoi à ton avis ? ;-)

Tu aurais pu encadrer les 1ères ligne par une boucle DO...UNTIL LOOP :
Do
rep=msgbox(....
if rep=vbOk then
...
end if
until loop rep<>vbOK

Ensuite tu réécris dans son intégralité la fonction "IsValue" !
L'intérêt d'écrire des sous-programmes, c'est justement de pouvoir les
réutiliser plusieurs fois !

Puis quand tu écris
dest = msgbox "le chemin de destination des fichiers va vous etre
demander"
tu commets une erreur de syntaxe !
En effet, tu te sers du code de retour de msgbox, donc tu l'utilises en tant
que fonction (et non sous-programme), donc les paramètres doivent être
encadrés par des parenthèses.
dest = msgbox("le chemin de destination des fichiers va vous etre
demander")
Au passage, tu peux en profiter pour corriger la faute d'orthographe sur
"demander" -> "demandé"
(participe passé et non pas infinitif!)

Et là tu récidives avec la "triplication" des constantes, des objets et
fonction !

Enfin, tu t'es joyeusement planté dans la structure des "If ... then
...else... end if"
Il manque en effet plusieurs "end if" dans ton programme (après le "pavé" if
reselect = vbOk then et à la fin du programme)

Je te rappelle la structuration de l'instruction IF :
1) Sur UNE SEULE ligne :
IF <condition> THEN <instruction si vrai> [ELSE <instruction si faux>]

2) Sur PLUSIEURS lignes :
IF <condition> THEN
<instructions si vrai>
[ELSE
<instruction si faux>]
END IF

La clause "END IF" est obligatoire si le test IF est écrit sur plusieurs
lignes !

Il faut donc écrire, au choix :
If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If
ou
If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path

ou
If InStr(1,Result,":")=0 Then _
Result=Item.ParentFolder.ParseName(Item.Title).Path

NB: dans la 3ème écriture, on utilise le caractère "_" à la fin, ce qui
indique que la 1ère ligne a une suite.
Donc la ligne "Result=..." n'est pas une ligne suivante, mais fait partie de
la 1ère.



Donc :
- commence par "élaguer" tout ce qui est redondant
- indente les lignes de code !
Car avoir tout aligné en 1ère colonne est le meilleur
moyen pour se planter, et louper un "end if" p.ex.,
et aussi pour commettre des erreurs d'algorithme.
P.ex. :
rep=msgbox (......)
if rep=vb_ok then
...........
...........
if isvalue(Item) Then
.......
If InStr(1,Result,":")..... then
.......
end if
.....
else
.....
end if
else
......
end if
.....
.....

- dès qu'un traitement identique est effectué plus
d'une fois, il FAUT avoir le réflexe du sous-programme
(SUB ou FUNCTION)
En particulier, dans ton cas, la sélection de dossier :

Function Dossier(titre)
Dossier=""
flag=BIF_returnonlyfsdirs
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)
If isvalue(Item) Then
Result=Item.Title
If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Result).Path
End If
Set testfile= filesys.CreateTextFile("c:direction.txt", True)
Dossier=result
testfile.WriteLine result
testfile.Close
else
msgbox "vous avez appuyé sur Annuler"
End If
end function

Cette fonction renvoie le nom du dossier sélectionné ou une chaine
vide si on n'a rien sélectionné.


Donc tu peux reprendre ta copie !! ;-)

Et je te conseille fortement de commencer pas à pas, par de tout petits
scripts, du style "Hello World", que tu compliquera progressivement.
Car vouloir démarrer "bille en tête" quand on débute, c'est un excellent
moyen pour :
- ne rien apprendre
- se planter lamentablement
- faire des "monstres"

Il existe des tas de bons bouquins sur le scripting VBS.
cf. mon paragraphe bibliographie :
http://www.bellamyjc.org/fr/vbsgeneralites.html#docbooks




--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
*

Avatar
Jean-Claude BELLAMY
Dans le message news: ,
Jean-Claude BELLAMY s'est ainsi exprimé:


Tu aurais pu encadrer les 1ères ligne par une boucle DO...UNTIL LOOP :
Oups !

Il fallait lire, évidemment :
DO...LOOP UNTIL

Do
rep=msgbox(....
if rep=vbOk then
...
end if
loop until rep<>vbOK


Désolé pour cette dyslexie !

http://www.bellamyjc.org/fr/vbsinstructions/vsstmdo.html

--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
*