Sub cree_bat()
Open "c:\temp\Ftest.bat" For Output As #1
Print #1, "cd\"
Print #1, "cd c:\sqlite3"
Print #1, "sqlite3 places.sqlite"
Print #1, ".dump txt"
Print #1, ".output test.txt"
Print #1, "select url,title from moz_places;"
Print #1, ".exit"
Close #1
Shell "c:\temp\Ftest.bat", vbNormalFocus
End Sub
Sub cree_bat()
Open "c:\temp\Ftest.bat" For Output As #1
Print #1, "cd\"
Print #1, "cd c:\sqlite3"
Print #1, "sqlite3 places.sqlite"
Print #1, ".dump txt"
Print #1, ".output test.txt"
Print #1, "select url,title from moz_places;"
Print #1, ".exit"
Close #1
Shell "command.com /C c:\temp\Ftest.bat", vbNormalFocus
End Sub
Sub cree_bat()
Open "c:\temp\Ftest.bat" For Output As #1
Print #1, "cd\"
Print #1, "cd c:\sqlite3"
Print #1, "sqlite3 places.sqlite"
Print #1, ".dump txt"
Print #1, ".output test.txt"
Print #1, "select url,title from moz_places;"
Print #1, ".exit"
Close #1
CmdBat = "c:\temp\Ftest.bat"
Set oShell = CreateObject("WSCript.shell")
Tmp = oShell.Run(CmdBat, 1, True)
End Sub
Sub cree_bat()
Open "c:\Fdir.bat" For Output As #1
Print #1, "cd\"
Print #1, "dir /?"
Close #1
Shell "d:\Fdir.bat", vbNormalFocus
End Sub
Complètement impossible à faire !Le batch se lance et fait bien le dir /?
Mais maintenant comment envoyer dans l'invite l'appui sur la touche ESPACE ?
Sub cree_bat()
Open "c:\temp\Ftest.bat" For Output As #1
Print #1, "cd\"
Print #1, "dir /?"
Print #1, "pause"
Close #1
CmdBat = "c:\temp\Ftest.bat"
Set oShell = CreateObject("WSCript.shell")
Tmp = oShell.Run(CmdBat, 1, True)
Cmd = "cmd.exe"
Set oShell = CreateObject("WSCript.shell")
Tmp = oShell.Run(Cmd, 1, True)
End Sub
Microsoft Windows [version 6.0.6001]
Copyright (c) 2006 Microsoft Corporation. Tous droits réservés.
C:\>dir /?
Affiche une liste de fichiers et de sous-répertoires dans un répertoire.
DIR [lecteur:][chemin][nom_de_fichier] [/A[[:]attributs]] [/b] [/C] [/D] [/L]
[/N] [/O[[:]tri]] [/P] [/Q] [/R] [/S] [/T[[:]heure]] [/W] [/X] [/4]
[lecteur:][chemin][nom_de_fichier]
Spécifie le lecteur, le répertoire et/ou fichiers à lister.
/A Affiche les fichiers dotés des attributs spécifiés.
attributs D Répertoires R Lecture seule
H Caché A Archive
S Système I Fichiers indexés sans contenu
L Points d'analyse - Préfixe de négation
/B Utilise le format abrégé (noms des fichiers).
/C Affiche le séparateur de milliers pour les tailles de fichiers.
Ceci est la valeur par défaut. Utilisez /-C pour désactiver l'affichage
du séparateur.
/D Sur cinq colonnes avec fichiers triés par colonne.
/L Affiche en minuscules.
/N Nouveau format longue liste où les noms de fichiers sont à droite.
/O Affiche les fichiers selon un tri spécifié.
tri N Nom (alphabétique) S Taille (ordre croissant)
E Extension (alphabétique) D Date et heure (chronologique)
Appuyez sur une touche pour continuer...
Sub test()
Shell "cmd", vbNormalFocus
Application.Wait Time + TimeSerial(0, 0, 2)
SendKeys "AAAA"
End Sub
@ECHO OFF
ECHO sqlite3 places.sqlite > $prg$
ECHO .dump txt >> $prg$
ECHO .output XXtest.txt >> $prg$
ECHO select url,title from moz_places; >> $prg$
ECHO .exit >> $prg$
TYPE $prg$ | sqlite3.exe
Sub Test_PAS_OK()
Shell "cmd", vbNormalFocus
Application.Wait Time + TimeSerial(0, 0, 1)
SendKeys "dir /?"
Application.Wait Time + TimeSerial(0, 0, 1)
SendKeys "~"
End Sub