VBS, je cherche lien vers tutoriel facile.
Fermé
pachanga
Messages postés
837
Date d'inscription
mercredi 14 mai 2008
Statut
Membre
Dernière intervention
1 juin 2021
-
3 nov. 2016 à 12:55
pachanga Messages postés 837 Date d'inscription mercredi 14 mai 2008 Statut Membre Dernière intervention 1 juin 2021 - 15 nov. 2016 à 14:41
pachanga Messages postés 837 Date d'inscription mercredi 14 mai 2008 Statut Membre Dernière intervention 1 juin 2021 - 15 nov. 2016 à 14:41
A voir également:
- VBS, je cherche lien vers tutoriel facile.
- Lien url - Guide
- Créer un lien pour partager des photos - Guide
- Verifier un lien - Guide
- Aucune application permettant d'ouvrir ce lien n'a été trouvée - Forum Mobile
- Cliquez sur ce lien. en n'utilisant que le clavier, quel mot obtenez-vous ? ✓ - Forum souris / Touchpad
3 réponses
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
Modifié par cs_Le Pivert le 3/11/2016 à 14:27
Modifié par cs_Le Pivert le 3/11/2016 à 14:27
Bonjour,
@+ Le Pivert
Dim shell
Dim Chemin
Set shell = CreateObject("WScript.Shell")
Chemin = "C:\chemin fichiertexte.txt"
shell.Run "Notepad " & Chemin
@+ Le Pivert
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
3 nov. 2016 à 15:08
3 nov. 2016 à 15:08
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
pachanga
Messages postés
837
Date d'inscription
mercredi 14 mai 2008
Statut
Membre
Dernière intervention
1 juin 2021
31
3 nov. 2016 à 15:17
3 nov. 2016 à 15:17
Merci beaucoup :)
pachanga
Messages postés
837
Date d'inscription
mercredi 14 mai 2008
Statut
Membre
Dernière intervention
1 juin 2021
31
Modifié par pachanga le 3/11/2016 à 15:27
Modifié par pachanga le 3/11/2016 à 15:27
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
Set objDialog = CreateObject( "UserAccounts.CommonDialog"
comporte une erreur que je ne peux comprendre.
un composant avtive x ne peux pas creer un objet
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
Modifié par cs_Le Pivert le 3/11/2016 à 19:15
Modifié par cs_Le Pivert le 3/11/2016 à 19:15
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
pachanga
Messages postés
837
Date d'inscription
mercredi 14 mai 2008
Statut
Membre
Dernière intervention
1 juin 2021
31
15 nov. 2016 à 14:41
15 nov. 2016 à 14:41
Merci beaucoup.
je me suis refugié dans batch, ça marche très bien.
je me suis refugié dans batch, ça marche très bien.
Modifié par pachanga le 3/11/2016 à 14:56
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.