VBS, je cherche lien vers tutoriel facile.
pachanga
Messages postés
928
Statut
Membre
-
pachanga Messages postés 928 Statut Membre -
pachanga Messages postés 928 Statut Membre -
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 !
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 !
A voir également:
- VBS, je cherche lien vers tutoriel facile.
- Lien url - Guide
- Créer un lien pour partager des photos - Guide
- Vbs windows - Accueil - Optimisation
- Verificateur de lien - Guide
- Lien copié - Forum Mobile
3 réponses
Bonjour,
@+ Le Pivert
Dim shell
Dim Chemin
Set shell = CreateObject("WScript.Shell")
Chemin = "C:\chemin fichiertexte.txt"
shell.Run "Notepad " & Chemin
@+ Le Pivert
Cela s'appelle une boite de dialogue d'ouverture.
openfiledialog en Anglais:
https://www.robvanderwoude.com/vbstech_ui_fileopen.php
openfiledialog en Anglais:
https://www.robvanderwoude.com/vbstech_ui_fileopen.php
Une autre manière:
Pour plus de détail voir ceci:
https://codes-sources.commentcamarche.net/source/51968-manipuler-registre-vbscript
@+ Le Pivert
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
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.