VBS, je cherche lien vers tutoriel facile. [Fermé]

Signaler
Messages postés
836
Date d'inscription
mercredi 14 mai 2008
Statut
Membre
Dernière intervention
25 février 2021
-
Messages postés
836
Date d'inscription
mercredi 14 mai 2008
Statut
Membre
Dernière intervention
25 février 2021
-
Bonjour,

Je cherche un lien qui va me montrer comment créer un fichier VBS
qui, à l'exécution, va ouvrir une fenêtre qui me donne le choix dans plusieurs fichiers
à exécuter.

comme ici:

"choisissez le fichier à ouvrir
fichier 1 bouton "ouvrir"
fichier 2 bouton "ouvrir"
fichier 3 bouton "ouvrir"

c'est tout.

J'ai un stricte minimum de connaissances en VBS et bacth.
Un petit coup de main serait apprécié. :)

Merci !




Si tu ne poses jamais de question, c'est parce que tu connais tout ! 

3 réponses

Messages postés
7337
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 avril 2021
625
Bonjour,

Dim shell 
Dim Chemin 
 Set shell = CreateObject("WScript.Shell")
Chemin = "C:\chemin fichiertexte.txt"
shell.Run "Notepad " & Chemin



@+ Le Pivert
Messages postés
836
Date d'inscription
mercredi 14 mai 2008
Statut
Membre
Dernière intervention
25 février 2021
31
Merci pour votre intervention.

Mais ce n'est pas ce que je cherche.

Je veux creer un fichier vbs qui va ouvrir une boite de dialogue et me laisser chosir entre
plusieurs fichiers à éxecuter, même un programme, du word, texte, etc
ces nom de fichiers et leurs chemins sont déjà dans le fichier vbs.

j'ai déjà créé un fichier VBS qui fait des sauvegardes automatiques de certains fichiers importants pour mon travail. Il marche très bien.
mais je dois créer plusieurs fichier pareils pour des sauvegardes différentes.
Le nouveau fichier vbs va me permettre de choisir entre chacun de ces fichiers, qui eux, vont faire une sauvegarde automatique.
Messages postés
7337
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 avril 2021
625
Cela s'appelle une boite de dialogue d'ouverture.
openfiledialog en Anglais:

https://www.robvanderwoude.com/vbstech_ui_fileopen.php
Messages postés
836
Date d'inscription
mercredi 14 mai 2008
Statut
Membre
Dernière intervention
25 février 2021
31
Merci beaucoup :)
Messages postés
836
Date d'inscription
mercredi 14 mai 2008
Statut
Membre
Dernière intervention
25 février 2021
31
malheureusement la ligne
Set objDialog = CreateObject( "UserAccounts.CommonDialog"
comporte une erreur que je ne peux comprendre.

un composant avtive x ne peux pas creer un objet
Messages postés
7337
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 avril 2021
625
Une autre manière:

sIniDir = "C:\Windows\*" 
sFilter = "All files (*.*)|*.*|Microsoft Word (*.doc;*.docx)|*.doc;*.docx|Adobe pdf (*.pdf)|*.pdf|Image files (*.gif;*.png;*jpg;*.bmp)|*.gif;*.png;*jpg;*.bmp|Html files (*.htm;*.html;*.mht)|*.htm;*.html;*.mht|" 
sTitle = "GetFileDlg by omen999 2014 - http://omen999.developpez.com" 
rep = GetFileDlgEx(Replace(sIniDir,"\","\\"),sFilter,sTitle) 
Chemin=rep & vbcrlf & Len(rep)
Chemin=InputBox("Copiez pour mettre le chemin dans le presse-papier", "Chercher chemin fichier", Chemin)
Function GetFileDlgEx(sIniDir,sFilter,sTitle) 
  Set oDlg = CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);eval(new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(0).Read("&Len(sIniDir)+Len(sFilter)+Len(sTitle)+41&"));function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg(iniDir,null,filter,title)));close();}</script><hta:application showintaskbar=no />""") 
  oDlg.StdIn.Write "var iniDir='" & sIniDir & "';var filter='" & sFilter & "';var title='" & sTitle & "';" 
  GetFileDlgEx = oDlg.StdOut.ReadAll 
End Function


Pour plus de détail voir ceci:

https://codes-sources.commentcamarche.net/source/51968-manipuler-registre-vbscript

@+ Le Pivert
Messages postés
836
Date d'inscription
mercredi 14 mai 2008
Statut
Membre
Dernière intervention
25 février 2021
31
Merci beaucoup.
je me suis refugié dans batch, ça marche très bien.