automatisation simple de l'assistant recherche
International Connections
français Windows 2000 Pro - à modifier selon vos besoins – selon votre
SE et la langue utilisée.
L'Assistant Recherche facilite la recherche de fichiers et de
dossiers. Pour rechercher des fichiers contenant du texte spécifique,
dans le champ "Contenant le texte", tapez le texte que vous souhaitez
trouver. Dans la zone "Rechercher les fichiers ou les dossiers
nommés", tapez tout ou partie du nom du fichier ou du dossier que vous
voulez trouver.
Voici une automation simple et courte pour exécuter une recherche des
fichiers contenant du texte spécifique sur votre machine sans quitter
l'Internet Explorer. Pour spécifier des critères de recherche
supplémentaires, utilisez les Options de recherche pour approfondir
votre recherche : Date Type Taille Options avancées.
Séquence de travail:
1) Créer un fichier en format Text avec l'éditeur de texte de votre
choix – Notepad - Saisir le script ci-dessous
2) Enregistrer le fichier créé avec l'extension VBS par exemple:
marecherche.vbs
3) Glisser le fichier marecherche.vbs sur la barre d'outils d'Internet
Explorer pour créér un raccourci – C'est tout
Voici le contenu du fichier VBS à composer pour le système
d'exploitation Français Windows 2000 Pro:
' Script à modifier selon vos besoins - DGS Gurley AL
' Pour Système d'Exploitation français Windows 2000 Pro
Dim Mystring
Set WshShell = CreateObject("WScript.Shell")
Mystring = InputBox("Saisir le texte à chercher:", "Taper le texte à
chercher", "Tapez ici le texte à rechercher")
if Trim(Mystring)="" Then
Msgbox "Vous n'avez rien tapé… aurevoir!"
else
' Changez C:\Ledossier par le chemin d'accès que vous voulez
Set oExplorer = WshShell.Exec("explorer.exe C:\Ledossier")
WshShell.AppActivate oExplorer.ProcessID
WScript.Sleep(500)
WshShell.SendKeys "{f3}"
WScript.Sleep(2500)
WshShell.SendKeys "%(mx)"
' Alt-m pour Rechercher les fichiers ou les dossiers nommés
' Alt- x pour l'option Contenant le texte – A votre choix
WScript.Sleep(800)
' WshShell.SendKeys "{TAB}" ‘Optionnel
WScript.Sleep(800)
WshShell.SendKeys Mystring
WScript.Sleep(800)
WshShell.SendKeys "%r" ' Rechercher
End if
Ce message est en réponse à un visiteur qui m'a contacté car il a
reconnu l'adresse idgu...@interserv.com sur les Groupes Google. Je
n'utilise plus cette adresse depuis 1996. Mes nouvelles adresses sont:
Soutien technique et auteur d'outils et d'utilitaires
http://members.tripod.com/Frenchtranslator/
Propriétaire et administrateur du site
Gurley Community & Town History Alabama USA
http://www.contactez.net/gurleyalabama
Objets raffinés de décoration d'intérieur:
http://gift.contactez.net
Pour tout autre message ayant mon ancienne adresse
idgu...@interserv.com, sélectionnez: