[résolu]ainsy.sys dans XP

[andreaugusta]

Bonjour,

 

Je suis sous xp Familiale sp2. Pour sauvegarder un program fait en vba2000 j'utilise:

Sub sauverXP()

RetVal = Shell("E:\sXPArtBa.bat", 1)

End Sub

Dans sXPArtBa.bat j'ai une ligne prompt $e[32;47;1m pour donner une couleur. Problème prompt ne fonctione que si ansi.sys est dans le fichier config.sys

XP n'ayant pas de dos, ne possède pas dans windows le fichier command et donc je ne sais pas ou mettre ainsy.sys

Existe-t-il une solution.

Pour le moment je me contente d'utiliser le fichier bat sur fond noir .

Ce serai plus joli avec un fond couleur.

Merci de vos réponses.

[O.Fournier]

Salut,

 

récupères un ANSI.SYS de Win98 (ou de WinME) et je crois (pas sûr je n'ai pas encore essayé !) que ça peut tourner si on arrive à charger ce pilote (normalement dans config.sys au départ) ...

 

Certains .EXE et .COM des commandes DOS des Win9x tournent sous l'émulation DOS de XP, notamment dans des batches .CMD.

 

IPL 001 est plus compétent que moi en matière de "DOS" dans XP ...

Modifié le 5 juin 2005 par O.Fournier

[gravier]

utilises la commande "color"

 

"color fc" par exemple pour afficher en rouge sur fong blanc

 

"color /?" pour en savoir plus sur la commande

 

 

tu peux déclarer le fichier ansi.sys déjà présent sous XP dans le fichier config.nt.

[_Michel_]

Salut,

 

Color est la meilleure solution.

 

Pour préciser un peu le reste, il y a sous windows (de type NT) deux types de ligne de commande. La ligne de commande de type console win32 (cmd.exe) et le DOS "véritable" lancé par command.com. Seul ce dernier prend en compte les commandes des fichiers config.nt et autoexec.nt; Or lorsque tu invoques Shell, c'est cmd.exe qui est lancé.

 

Pour faire marcher ton histoire, en plus de modifier config.nt (ajouter la ligne "device=%SystemRoot%\system32\ansi.sys"), il faudrait utiliser :

 

RetVal = Shell("command /c E:\sXPArtBa.bat",1);

[andreaugusta]

Résolu

[O.Fournier]

Merci d'être revenu le dire ! C'est assez rare pour être souligné !