DOS/DIR et Windows XP

Test

29/09/2006 à 20:09

Bonjour,

Printdir.vbs sur Google, sinon, en dessous, fichier à copier dans le bloc
note et renommez en printdir.vbs puis installer.
Dans l'explorateur, en cliquant sur un dossier ou un lecteur, un menu
contextuel apparaitra avec "Impression de contenu de répertoire", ensuite ce
sera facile...
Merci à JC Bellamy.

A+ Jean

' ----------------------------------------------------------
' Script VBS d'impression ou affichage d'un répertoire
' depuis le menu contextuel de l'explorateur de Windows
' Une boite de dialogue s'ouvre afin de permettre
' la saisie de paramètres de sélection et paramètres
' de la commande "dir"
' Ce script est livré avec un ficher d'aide qui rappelle
' la syntaxe de "dir"
'
' Il est autoinstallable par exécution sans paramètres
'
' JC BELLAMY © 2001
' ----------------------------------------------------------

' Constantes
SW_HIDE = 0
SW_SHOWNORMAL = 1
ForReading = 1
ForWriting = 2
' Tableau de correpsondance OEM->ANSI
' car la commande dir génère de l'OEM
Dim oem
oem=array( _
"00","01","02","03","04","05","06","07","08","09","0A","0B","0C","0D","0E","0F",
_
"10","11","12","13","14","15","16","17","18","19","1A","1B","1C","1D","1E","1F",
_
"20","21","22","23","24","25","26","27","28","29","2A","2B","2C","2D","2E","2F",
_
"30","31","32","33","34","35","36","37","38","39","3A","3B","3C","3D","3E","3F",
_
"40","41","42","43","44","45","46","47","48","49","4A","4B","4C","4D","4E","4F",
_
"50","51","52","53","54","55","56","57","58","59","5A","5B","5C","5D","5E","5F",
_
"60","61","62","63","64","65","66","67","68","69","6A","6B","6C","6D","6E","6F",
_
"70","71","72","73","74","75","76","77","78","79","7A","7B","7C","7D","7E","7F",
_
"C7","FC","E9","E2","E4","E0","E5","E7","EA","EB","E8","EF","EE","EC","C4","C5",
_
"C9","E6","C6","F4","F6","F2","FB","F9","FF","D6","DC","F8","A3","D8","D7","83",
_
"E1","ED","F3","FA","F1","D1","AA","BA","BF","AE","AC","BD","BC","A1","AB","BB",
_
"A6","A6","A6","A6","A6","C1","C2","C0","A9","A6","A6","2B","2B","A2","A5","2B",
_
"2B","2D","2D","2B","2D","2B","E3","C3","2B","2B","2D","2D","A6","2D","2B","A4",
_
"F0","D0","CA","CB","C8","69","CD","CE","CF","2B","2B","A6","5F","A6","CC","AF",
_
"D3","DF","D4","D2","F5","D5","B5","FE","DE","DA","DB","D9","FD","DD","AF","B4",
_
"AD","B1","3D","BE","B6","A7","F7","B8","B0","A8","B7","B9","B3","B2","A6","A0")

' Variables
Dim shell, args, fso, dirtemp, fictemp,ficoem, fictxt
Set shell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set args = Wscript.Arguments
'
Script=Lcase(Wscript.ScriptFullName)
HelpFile=Left(Script,len(script)-3) & "hlp"
If args.count=0 Then
' Auto-installation
Key="HKEY_CLASSES_ROOTfoldershellprintdir"
shell.RegWrite Key,"Impression du contenu du répertoire"
Command="wscript """ & Script & """ ""%1"""
shell.RegWrite Key & "command",Command
MsgBox "Script "& Script &" installé", vbInformation, "Exécution dans une
console"
WScript.quit
end if
curdir=args(0)
If right(curdir,1)="" Then curdir=left(curdir,len(curdir)-1)
Prompt="Indiquer le répertoire à imprimer, suivi du" & vbcrlf & _
"critère de sélection éventuel, ainsi que des" & vbcrlf & _
"commutateurs habituels de la commande " & chr(34) & "dir" & chr(34) & "." _
& vbcrlf & vbcrlf & _
"(Appuyer sur le bouton d'aide pour plus de détails)"
critere=InputBox(Prompt, "Impression de contenu de répertoire", _
curdir & "*.*",,,helpfile,1)
If Len(critere)=0 Then Wscript.quit

' Création de nom de fichiers dans le répertoire temporaire
Set dirtemp = fso.GetSpecialFolder(2)
nomcmd = dirtemp & "printdir.bat"
nomoem = dirtemp & "printdir.oem"
nomtxt = dirtemp & "printdir.txt"
' Fichier batch exécutant la commande "dir"
' avec sortie redirigée vers un fichier
Set ficTemp = fso.CreateTextFile(nomcmd)
fictemp.writeline "@echo off"
fictemp.writeline "dir " & critere & " > " & nomoem
ficTemp.close
shell.Run nomcmd, SW_HIDE,true

' Retraitement du fichier résultats
' Conversion OEM -> ANSI
Set ficoem=fso.OpenTextFile(nomoem, ForReading)
Set fictxt=fso.OpenTextFile(nomtxt, ForWriting,true)
While not ficoem.AtEndOfStream
oldline=ficoem.ReadLine
newline=""
For i = 1 To len(oldline)
oldc=asc(mid(oldline,i,1))
newc=oem(oldc)
newline=newline & chr(hextobyte(newc))
Next
fictxt.WriteLine newline
Wend
fictxt.close
ficoem.close

prompt="Le contenu du répertoire a été stocké dans" & VBCRLF & _
"le fichier " & nomtxt & VBCRLF & _
"Appuyer sur :" & VBCRLF & _
" OUI pour l'imprimer" & VBCRLF & _
" NON pour l'ouvrir avec le bloc-notes"
rep=MsgBox(prompt, vbYesNo + vbQuestion, curdir)

If rep=vbYes Then
commutateur=" /p "
show=SW_HIDE
else
commutateur=" "
show=SW_SHOWNORMAL
end if
' Impression ou affichage du fichier à l'aide du bloc-notes
commande=shell.ExpandEnvironmentStrings("%windir%notepad.exe" &
commutateur & chr(34) & nomtxt & chr(34))
shell.Run commande, show, true
Wscript.quit

' Utilitaires de conversion hexadécimale
' -------------------------------------
Function hextobyte(s)
c1=Left(s,1)
c2=Right(s,1)
hextobyte=hextobin(c1)*16+hextobin(c2)
End Function
' -------------------------------------
Function hextobin(c)
Select Case c
Case "0","1","2","3","4","5","6","7","8","9"
hextobin=asc(c)-asc("0")
Case else
hextobin=asc(c)-asc("A")+10
End Select
End Function
' -------------------------------------
"Robert Venot" a écrit dans le message de news:
eK37TC$

Bonjour
J'éprouve parfois le besoin d'imprimer une liste de fichers telle qu'elle
apparaît avec l'explorateur de windows.
Je passe alors en mode CMD, puis je fait DIR avec une redirection du
genre DIR > liste.txt.
Sauf que dans mon fichier liste.txt, il y a quelques bizarreries sur le
graphisme des lettres. Je sais qu'il y a des listes de caractères du genre
ANSI ou ASCII.
Que faut-il faire pour éviter ces désagréments ?
Avez-vous des idées ?
Merci à tous
Robert

Bonjour,

Printdir.vbs sur Google, sinon, en dessous, fichier à copier dans le bloc
note et renommez en printdir.vbs puis installer.
Dans l'explorateur, en cliquant sur un dossier ou un lecteur, un menu
contextuel apparaitra avec "Impression de contenu de répertoire", ensuite ce
sera facile...
Merci à JC Bellamy.

A+ Jean

' ----------------------------------------------------------
' Script VBS d'impression ou affichage d'un répertoire
' depuis le menu contextuel de l'explorateur de Windows
' Une boite de dialogue s'ouvre afin de permettre
' la saisie de paramètres de sélection et paramètres
' de la commande "dir"
' Ce script est livré avec un ficher d'aide qui rappelle
' la syntaxe de "dir"
'
' Il est autoinstallable par exécution sans paramètres
'
' JC BELLAMY © 2001
' ----------------------------------------------------------

' Constantes
SW_HIDE = 0
SW_SHOWNORMAL = 1
ForReading = 1
ForWriting = 2
' Tableau de correpsondance OEM->ANSI
' car la commande dir génère de l'OEM
Dim oem
oem=array( _
"00","01","02","03","04","05","06","07","08","09","0A","0B","0C","0D","0E","0F",
_
"10","11","12","13","14","15","16","17","18","19","1A","1B","1C","1D","1E","1F",
_
"20","21","22","23","24","25","26","27","28","29","2A","2B","2C","2D","2E","2F",
_
"30","31","32","33","34","35","36","37","38","39","3A","3B","3C","3D","3E","3F",
_
"40","41","42","43","44","45","46","47","48","49","4A","4B","4C","4D","4E","4F",
_
"50","51","52","53","54","55","56","57","58","59","5A","5B","5C","5D","5E","5F",
_
"60","61","62","63","64","65","66","67","68","69","6A","6B","6C","6D","6E","6F",
_
"70","71","72","73","74","75","76","77","78","79","7A","7B","7C","7D","7E","7F",
_
"C7","FC","E9","E2","E4","E0","E5","E7","EA","EB","E8","EF","EE","EC","C4","C5",
_
"C9","E6","C6","F4","F6","F2","FB","F9","FF","D6","DC","F8","A3","D8","D7","83",
_
"E1","ED","F3","FA","F1","D1","AA","BA","BF","AE","AC","BD","BC","A1","AB","BB",
_
"A6","A6","A6","A6","A6","C1","C2","C0","A9","A6","A6","2B","2B","A2","A5","2B",
_
"2B","2D","2D","2B","2D","2B","E3","C3","2B","2B","2D","2D","A6","2D","2B","A4",
_
"F0","D0","CA","CB","C8","69","CD","CE","CF","2B","2B","A6","5F","A6","CC","AF",
_
"D3","DF","D4","D2","F5","D5","B5","FE","DE","DA","DB","D9","FD","DD","AF","B4",
_
"AD","B1","3D","BE","B6","A7","F7","B8","B0","A8","B7","B9","B3","B2","A6","A0")

' Variables
Dim shell, args, fso, dirtemp, fictemp,ficoem, fictxt
Set shell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set args = Wscript.Arguments
'
Script=Lcase(Wscript.ScriptFullName)
HelpFile=Left(Script,len(script)-3) & "hlp"
If args.count=0 Then
' Auto-installation
Key="HKEY_CLASSES_ROOTfoldershellprintdir"
shell.RegWrite Key,"Impression du contenu du répertoire"
Command="wscript """ & Script & """ ""%1"""
shell.RegWrite Key & "command",Command
MsgBox "Script "& Script &" installé", vbInformation, "Exécution dans une
console"
WScript.quit
end if
curdir=args(0)
If right(curdir,1)="" Then curdir=left(curdir,len(curdir)-1)
Prompt="Indiquer le répertoire à imprimer, suivi du" & vbcrlf & _
"critère de sélection éventuel, ainsi que des" & vbcrlf & _
"commutateurs habituels de la commande " & chr(34) & "dir" & chr(34) & "." _
& vbcrlf & vbcrlf & _
"(Appuyer sur le bouton d'aide pour plus de détails)"
critere=InputBox(Prompt, "Impression de contenu de répertoire", _
curdir & "*.*",,,helpfile,1)
If Len(critere)=0 Then Wscript.quit

' Création de nom de fichiers dans le répertoire temporaire
Set dirtemp = fso.GetSpecialFolder(2)
nomcmd = dirtemp & "printdir.bat"
nomoem = dirtemp & "printdir.oem"
nomtxt = dirtemp & "printdir.txt"
' Fichier batch exécutant la commande "dir"
' avec sortie redirigée vers un fichier
Set ficTemp = fso.CreateTextFile(nomcmd)
fictemp.writeline "@echo off"
fictemp.writeline "dir " & critere & " > " & nomoem
ficTemp.close
shell.Run nomcmd, SW_HIDE,true

' Retraitement du fichier résultats
' Conversion OEM -> ANSI
Set ficoem=fso.OpenTextFile(nomoem, ForReading)
Set fictxt=fso.OpenTextFile(nomtxt, ForWriting,true)
While not ficoem.AtEndOfStream
oldline=ficoem.ReadLine
newline=""
For i = 1 To len(oldline)
oldc=asc(mid(oldline,i,1))
newc=oem(oldc)
newline=newline & chr(hextobyte(newc))
Next
fictxt.WriteLine newline
Wend
fictxt.close
ficoem.close

prompt="Le contenu du répertoire a été stocké dans" & VBCRLF & _
"le fichier " & nomtxt & VBCRLF & _
"Appuyer sur :" & VBCRLF & _
" OUI pour l'imprimer" & VBCRLF & _
" NON pour l'ouvrir avec le bloc-notes"
rep=MsgBox(prompt, vbYesNo + vbQuestion, curdir)

If rep=vbYes Then
commutateur=" /p "
show=SW_HIDE
else
commutateur=" "
show=SW_SHOWNORMAL
end if
' Impression ou affichage du fichier à l'aide du bloc-notes
commande=shell.ExpandEnvironmentStrings("%windir%notepad.exe" &
commutateur & chr(34) & nomtxt & chr(34))
shell.Run commande, show, true
Wscript.quit

' Utilitaires de conversion hexadécimale
' -------------------------------------
Function hextobyte(s)
c1=Left(s,1)
c2=Right(s,1)
hextobyte=hextobin(c1)*16+hextobin(c2)
End Function
' -------------------------------------
Function hextobin(c)
Select Case c
Case "0","1","2","3","4","5","6","7","8","9"
hextobin=asc(c)-asc("0")
Case else
hextobin=asc(c)-asc("A")+10
End Select
End Function
' -------------------------------------
"Robert Venot" <rvenot@wanadoo.fr> a écrit dans le message de news:
eK37TC$4GHA.1248@TK2MSFTNGP03.phx.gbl...

Bonjour
J'éprouve parfois le besoin d'imprimer une liste de fichers telle qu'elle
apparaît avec l'explorateur de windows.
Je passe alors en mode CMD, puis je fait DIR avec une redirection du
genre DIR > liste.txt.
Sauf que dans mon fichier liste.txt, il y a quelques bizarreries sur le
graphisme des lettres. Je sais qu'il y a des listes de caractères du genre
ANSI ou ASCII.
Que faut-il faire pour éviter ces désagréments ?
Avez-vous des idées ?
Merci à tous
Robert

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour,

Printdir.vbs sur Google, sinon, en dessous, fichier à copier dans le bloc
note et renommez en printdir.vbs puis installer.
Dans l'explorateur, en cliquant sur un dossier ou un lecteur, un menu
contextuel apparaitra avec "Impression de contenu de répertoire", ensuite ce
sera facile...
Merci à JC Bellamy.

A+ Jean

' ----------------------------------------------------------
' Script VBS d'impression ou affichage d'un répertoire
' depuis le menu contextuel de l'explorateur de Windows
' Une boite de dialogue s'ouvre afin de permettre
' la saisie de paramètres de sélection et paramètres
' de la commande "dir"
' Ce script est livré avec un ficher d'aide qui rappelle
' la syntaxe de "dir"
'
' Il est autoinstallable par exécution sans paramètres
'
' JC BELLAMY © 2001
' ----------------------------------------------------------

' Constantes
SW_HIDE = 0
SW_SHOWNORMAL = 1
ForReading = 1
ForWriting = 2
' Tableau de correpsondance OEM->ANSI
' car la commande dir génère de l'OEM
Dim oem
oem=array( _
"00","01","02","03","04","05","06","07","08","09","0A","0B","0C","0D","0E","0F",
_
"10","11","12","13","14","15","16","17","18","19","1A","1B","1C","1D","1E","1F",
_
"20","21","22","23","24","25","26","27","28","29","2A","2B","2C","2D","2E","2F",
_
"30","31","32","33","34","35","36","37","38","39","3A","3B","3C","3D","3E","3F",
_
"40","41","42","43","44","45","46","47","48","49","4A","4B","4C","4D","4E","4F",
_
"50","51","52","53","54","55","56","57","58","59","5A","5B","5C","5D","5E","5F",
_
"60","61","62","63","64","65","66","67","68","69","6A","6B","6C","6D","6E","6F",
_
"70","71","72","73","74","75","76","77","78","79","7A","7B","7C","7D","7E","7F",
_
"C7","FC","E9","E2","E4","E0","E5","E7","EA","EB","E8","EF","EE","EC","C4","C5",
_
"C9","E6","C6","F4","F6","F2","FB","F9","FF","D6","DC","F8","A3","D8","D7","83",
_
"E1","ED","F3","FA","F1","D1","AA","BA","BF","AE","AC","BD","BC","A1","AB","BB",
_
"A6","A6","A6","A6","A6","C1","C2","C0","A9","A6","A6","2B","2B","A2","A5","2B",
_
"2B","2D","2D","2B","2D","2B","E3","C3","2B","2B","2D","2D","A6","2D","2B","A4",
_
"F0","D0","CA","CB","C8","69","CD","CE","CF","2B","2B","A6","5F","A6","CC","AF",
_
"D3","DF","D4","D2","F5","D5","B5","FE","DE","DA","DB","D9","FD","DD","AF","B4",
_
"AD","B1","3D","BE","B6","A7","F7","B8","B0","A8","B7","B9","B3","B2","A6","A0")

' Variables
Dim shell, args, fso, dirtemp, fictemp,ficoem, fictxt
Set shell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set args = Wscript.Arguments
'
Script=Lcase(Wscript.ScriptFullName)
HelpFile=Left(Script,len(script)-3) & "hlp"
If args.count=0 Then
' Auto-installation
Key="HKEY_CLASSES_ROOTfoldershellprintdir"
shell.RegWrite Key,"Impression du contenu du répertoire"
Command="wscript """ & Script & """ ""%1"""
shell.RegWrite Key & "command",Command
MsgBox "Script "& Script &" installé", vbInformation, "Exécution dans une
console"
WScript.quit
end if
curdir=args(0)
If right(curdir,1)="" Then curdir=left(curdir,len(curdir)-1)
Prompt="Indiquer le répertoire à imprimer, suivi du" & vbcrlf & _
"critère de sélection éventuel, ainsi que des" & vbcrlf & _
"commutateurs habituels de la commande " & chr(34) & "dir" & chr(34) & "." _
& vbcrlf & vbcrlf & _
"(Appuyer sur le bouton d'aide pour plus de détails)"
critere=InputBox(Prompt, "Impression de contenu de répertoire", _
curdir & "*.*",,,helpfile,1)
If Len(critere)=0 Then Wscript.quit

' Création de nom de fichiers dans le répertoire temporaire
Set dirtemp = fso.GetSpecialFolder(2)
nomcmd = dirtemp & "printdir.bat"
nomoem = dirtemp & "printdir.oem"
nomtxt = dirtemp & "printdir.txt"
' Fichier batch exécutant la commande "dir"
' avec sortie redirigée vers un fichier
Set ficTemp = fso.CreateTextFile(nomcmd)
fictemp.writeline "@echo off"
fictemp.writeline "dir " & critere & " > " & nomoem
ficTemp.close
shell.Run nomcmd, SW_HIDE,true

' Retraitement du fichier résultats
' Conversion OEM -> ANSI
Set ficoem=fso.OpenTextFile(nomoem, ForReading)
Set fictxt=fso.OpenTextFile(nomtxt, ForWriting,true)
While not ficoem.AtEndOfStream
oldline=ficoem.ReadLine
newline=""
For i = 1 To len(oldline)
oldc=asc(mid(oldline,i,1))
newc=oem(oldc)
newline=newline & chr(hextobyte(newc))
Next
fictxt.WriteLine newline
Wend
fictxt.close
ficoem.close

prompt="Le contenu du répertoire a été stocké dans" & VBCRLF & _
"le fichier " & nomtxt & VBCRLF & _
"Appuyer sur :" & VBCRLF & _
" OUI pour l'imprimer" & VBCRLF & _
" NON pour l'ouvrir avec le bloc-notes"
rep=MsgBox(prompt, vbYesNo + vbQuestion, curdir)

If rep=vbYes Then
commutateur=" /p "
show=SW_HIDE
else
commutateur=" "
show=SW_SHOWNORMAL
end if
' Impression ou affichage du fichier à l'aide du bloc-notes
commande=shell.ExpandEnvironmentStrings("%windir%notepad.exe" &
commutateur & chr(34) & nomtxt & chr(34))
shell.Run commande, show, true
Wscript.quit

' Utilitaires de conversion hexadécimale
' -------------------------------------
Function hextobyte(s)
c1=Left(s,1)
c2=Right(s,1)
hextobyte=hextobin(c1)*16+hextobin(c2)
End Function
' -------------------------------------
Function hextobin(c)
Select Case c
Case "0","1","2","3","4","5","6","7","8","9"
hextobin=asc(c)-asc("0")
Case else
hextobin=asc(c)-asc("A")+10
End Select
End Function
' -------------------------------------
"Robert Venot" a écrit dans le message de news:
eK37TC$

Bonjour
J'éprouve parfois le besoin d'imprimer une liste de fichers telle qu'elle
apparaît avec l'explorateur de windows.
Je passe alors en mode CMD, puis je fait DIR avec une redirection du
genre DIR > liste.txt.
Sauf que dans mon fichier liste.txt, il y a quelques bizarreries sur le
graphisme des lettres. Je sais qu'il y a des listes de caractères du genre
ANSI ou ASCII.
Que faut-il faire pour éviter ces désagréments ?
Avez-vous des idées ?
Merci à tous
Robert

Paulchen

29/09/2006 à 20:12

Salut Robert,

Je ne garantis rien, j'essaierais auparavant, en mode console, "chcp 437".
Cela remplace le jeu de caractères (850 par défaut) par le jeu 437.

Reviens nous dire.
--
Paulchen

"Robert Venot" a écrit dans le message de news:
eK37TC$

Bonjour
J'éprouve parfois le besoin d'imprimer une liste de fichers telle qu'elle
apparaît avec l'explorateur de windows.
Je passe alors en mode CMD, puis je fait DIR avec une redirection du
genre DIR > liste.txt.
Sauf que dans mon fichier liste.txt, il y a quelques bizarreries sur le
graphisme des lettres. Je sais qu'il y a des listes de caractères du genre
ANSI ou ASCII.
Que faut-il faire pour éviter ces désagréments ?
Avez-vous des idées ?
Merci à tous
Robert

JF

30/09/2006 à 07:42

*Bonjour Robert Venot* !
news:eK37TC$

Bonjour
J'éprouve parfois le besoin d'imprimer une liste de fichers telle
qu'elle apparaît avec l'explorateur de windows.
Je passe alors en mode CMD, puis je fait DIR avec une redirection du
genre DIR > liste.txt.
Sauf que dans mon fichier liste.txt, il y a quelques bizarreries sur
le graphisme des lettres. Je sais qu'il y a des listes de caractères
du genre ANSI ou ASCII.
Que faut-il faire pour éviter ces désagréments ?
Avez-vous des idées ?
Merci à tous
Robert

Il y a plusieurs solutions :
Si le résultat n'est pas trop grand, on peut copier le contenu de la Console
et coller dans Bloc-Notes, ce qui n'altère pas les caractères.

On peut utiliser CHCP 1252 ==>
chcp 1252
dir>dir.txt

Je préfère avec les commutateurs oe :
dir /oe>dir.txt

On peut utiliser OEM2ANSI.VBS :
http://www.bellamyjc.org/download/vbs/oem2ansi.vbs

Utilitaires d'impression de répertoires
- Directory Printer www.karenware.com/powertools/ptdirprn.asp
- PRINTDIR www.bellamyjc.org/fr/vbsdownload.html#printdir
- PtDIRprn http://jceel.free.fr

On peut changer le code des caractères dans un éditeur :
Éditeurs de texte avec conversions OEM<->ANSI
http://www.gratilog.net/bureautique1.htm
(par exemple Metapad)

Pour mémoire je rappelle l'existence de EDIT.COM livré avec Windows et qui
est adapté au codage OEM (Exécuter>edit.com). Il est pratique de le mettre
dans le SendTo pour un affichage correct de certains documents, l'édition de
batchs, et de BOOT.INI

Et enfin, à la place d'une Console CMD, on peut utiliser la nouvelle Console
PowerShell
http://support.microsoft.com/kb/925228
www.hotline-pc.org/scripting/powershell.html
www.microsoft.com/windowsserver2003/technologies/management/powershell/default.mspx

Les redirections se font enfin avec le code ANSI.
La redirection de TREE est parfaite :
tree >tree.txt
Dans cette Console, comme pour la Console de Récupération, il faut respecter
les espaces:
Exemple avec la commande CD pour revenir à la racine du disque :
CD ne marche pas., utiliser
CD avec un espace entre CD et

--
1- Salutations, Jean-François :o)
2- Index du site de PN : http://www.d2i.ch/pn/az
3- Montrez vos écrans : http://fspsa.free.fr/copiecran.htm
4- Outlook Express: Suivez vos fils avec [CTL+H]

*Bonjour Robert Venot* !
news:eK37TC$4GHA.1248@TK2MSFTNGP03.phx.gbl

Bonjour
J'éprouve parfois le besoin d'imprimer une liste de fichers telle
qu'elle apparaît avec l'explorateur de windows.
Je passe alors en mode CMD, puis je fait DIR avec une redirection du
genre DIR > liste.txt.
Sauf que dans mon fichier liste.txt, il y a quelques bizarreries sur
le graphisme des lettres. Je sais qu'il y a des listes de caractères
du genre ANSI ou ASCII.
Que faut-il faire pour éviter ces désagréments ?
Avez-vous des idées ?
Merci à tous
Robert

Il y a plusieurs solutions :
Si le résultat n'est pas trop grand, on peut copier le contenu de la Console
et coller dans Bloc-Notes, ce qui n'altère pas les caractères.

On peut utiliser CHCP 1252 ==>
chcp 1252
dir>dir.txt

Je préfère avec les commutateurs oe :
dir /oe>dir.txt

On peut utiliser OEM2ANSI.VBS :
http://www.bellamyjc.org/download/vbs/oem2ansi.vbs

Utilitaires d'impression de répertoires
- Directory Printer www.karenware.com/powertools/ptdirprn.asp
- PRINTDIR www.bellamyjc.org/fr/vbsdownload.html#printdir
- PtDIRprn http://jceel.free.fr

On peut changer le code des caractères dans un éditeur :
Éditeurs de texte avec conversions OEM<->ANSI
http://www.gratilog.net/bureautique1.htm
(par exemple Metapad)

Pour mémoire je rappelle l'existence de EDIT.COM livré avec Windows et qui
est adapté au codage OEM (Exécuter>edit.com). Il est pratique de le mettre
dans le SendTo pour un affichage correct de certains documents, l'édition de
batchs, et de BOOT.INI

Et enfin, à la place d'une Console CMD, on peut utiliser la nouvelle Console
PowerShell
http://support.microsoft.com/kb/925228
www.hotline-pc.org/scripting/powershell.html
www.microsoft.com/windowsserver2003/technologies/management/powershell/default.mspx

Les redirections se font enfin avec le code ANSI.
La redirection de TREE est parfaite :
tree >tree.txt
Dans cette Console, comme pour la Console de Récupération, il faut respecter
les espaces:
Exemple avec la commande CD pour revenir à la racine du disque :
CD ne marche pas., utiliser
CD avec un espace entre CD et

--
1- Salutations, Jean-François :o)
2- Index du site de PN : http://www.d2i.ch/pn/az
3- Montrez vos écrans : http://fspsa.free.fr/copiecran.htm
4- Outlook Express: Suivez vos fils avec [CTL+H]

Vous avez filtré cet utilisateur ! Consultez son message

*Bonjour Robert Venot* !
news:eK37TC$

Bonjour
J'éprouve parfois le besoin d'imprimer une liste de fichers telle
qu'elle apparaît avec l'explorateur de windows.
Je passe alors en mode CMD, puis je fait DIR avec une redirection du
genre DIR > liste.txt.
Sauf que dans mon fichier liste.txt, il y a quelques bizarreries sur
le graphisme des lettres. Je sais qu'il y a des listes de caractères
du genre ANSI ou ASCII.
Que faut-il faire pour éviter ces désagréments ?
Avez-vous des idées ?
Merci à tous
Robert

Il y a plusieurs solutions :
Si le résultat n'est pas trop grand, on peut copier le contenu de la Console
et coller dans Bloc-Notes, ce qui n'altère pas les caractères.

On peut utiliser CHCP 1252 ==>
chcp 1252
dir>dir.txt

Je préfère avec les commutateurs oe :
dir /oe>dir.txt

On peut utiliser OEM2ANSI.VBS :
http://www.bellamyjc.org/download/vbs/oem2ansi.vbs

Utilitaires d'impression de répertoires
- Directory Printer www.karenware.com/powertools/ptdirprn.asp
- PRINTDIR www.bellamyjc.org/fr/vbsdownload.html#printdir
- PtDIRprn http://jceel.free.fr

On peut changer le code des caractères dans un éditeur :
Éditeurs de texte avec conversions OEM<->ANSI
http://www.gratilog.net/bureautique1.htm
(par exemple Metapad)

Pour mémoire je rappelle l'existence de EDIT.COM livré avec Windows et qui
est adapté au codage OEM (Exécuter>edit.com). Il est pratique de le mettre
dans le SendTo pour un affichage correct de certains documents, l'édition de
batchs, et de BOOT.INI

Et enfin, à la place d'une Console CMD, on peut utiliser la nouvelle Console
PowerShell
http://support.microsoft.com/kb/925228
www.hotline-pc.org/scripting/powershell.html
www.microsoft.com/windowsserver2003/technologies/management/powershell/default.mspx

Les redirections se font enfin avec le code ANSI.
La redirection de TREE est parfaite :
tree >tree.txt
Dans cette Console, comme pour la Console de Récupération, il faut respecter
les espaces:
Exemple avec la commande CD pour revenir à la racine du disque :
CD ne marche pas., utiliser
CD avec un espace entre CD et

--
1- Salutations, Jean-François :o)
2- Index du site de PN : http://www.d2i.ch/pn/az
3- Montrez vos écrans : http://fspsa.free.fr/copiecran.htm
4- Outlook Express: Suivez vos fils avec [CTL+H]

Jean-Claude BELLAMY

30/09/2006 à 13:14

Dans le message :eK37TC$,
Robert Venot a pris la peine d'écrire ce qui suit :

Bonjour
J'éprouve parfois le besoin d'imprimer une liste de fichers telle
qu'elle apparaît avec l'explorateur de windows.
Je passe alors en mode CMD, puis je fait DIR avec une redirection du
genre DIR > liste.txt.
Sauf que dans mon fichier liste.txt, il y a quelques bizarreries sur
le graphisme des lettres. Je sais qu'il y a des listes de caractères
du genre ANSI ou ASCII.
Que faut-il faire pour éviter ces désagréments ?

Utiliser mon script "PRINTDIR.VBS"
http://www.bellamyjc.org/fr/vbsdownload.html#printdir

--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP]
http://www.bellamyjc.org ou http://jc.bellamy.free.fr

DOS/DIR et Windows XP

4 réponses

Veuillez sélectionner un problème