MS-DOS-Name im Explorer ?

Bei älteren Windows-Versionen bis 98SE bekam man im Explorer bei Klick mit der rechten Maustaste auf "Eigenschaften" unter anderem auch
immer den MS-DOS-Namen der Datei/ des Ordner (z.B. Progra~1) angezeigt. Bei XP ganz offensichtlich nicht mehr.

Kennt jemand eine Möglichkeit, daß in XP einzurichten (z.B. in der Registry) oder ein kleines Tool ?

 

Kannst du dir doch in der Konsole mit "dir" anzeigen lassen.

 

Ich weiß nicht, was Du in diesem Zusammenhang mit Konsole meinst ?
Ich wollte nicht in den DOS-Modus runter und in die Reparaturkonsole.
Selbst im MS-DOS-Fenster von XP (Emulator) werden nur noch die langen Dateinamen angezeigt.

Ich wollte das wieder im Explorer haben, so wie in 98.
Ist manchmal ganz nützlich, wenn man falsche Pfadangaben sucht.
Gerade weil Windows gerne mal die ~1, ~2, ~3 ändert beim Kopieren.

 

Konsole = cmd.exe
Start -> Ausführen -> cmd.exe -> Enter

 

Hallo!

Ich habe dir da ein Skript geschrieben.

Anleitung:
1. Lade dir die zip-Datei im Anhang herunter.
2. Entpacke die enthaltene vbs-Datei nach "C:\Dokumente und Einstellungen\<Dein Nutzername>\SendTo"

Nun müsste im "Senden An"-Menü einer Datei oder eines Ordners der Eintrag "Dos-Dateiname anzeigen.vbs" erscheinen. Wenn du darauf klickst, wird der normale Dateiname und darunter der Dos-Dateiname angezeigt. Das funktioniert auch mit mehreren Dateien.

Gruß, /root!

 

Super, Danke @root !

Aber irgendwie bekomme ich die paar Byte da nicht entpackt.
Sag mal, bin ich zu doof ? WinZip gibt mir ne Fehlermeldung und mit WinRar kann ich zwar entpacken, aber es gibt keine .vbs-Datei.

 

Wenn das mit der zip-Datei nicht geht, dann poste ich den Inhalt der Datei hier direkt. Speichere den Text als Datei mit der Endung ".vbs" im Verzeichnis "C:\Dokumente und Einstellungen\<Dein Nutzername>\SendTo" ab.

Code:

Set fso = CreateObject("Scripting.FileSystemObject")
counter=1

For Each datei in WScript.Arguments
 If fso.FolderExists(datei) then
  Set dateiobjekt = fso.GetFolder(datei)
 Else
  Set dateiobjekt = fso.GetFile(datei)
 End If
 msg=msg&"Datei Nr. "&counter&vbNewLine&"Dateiname:	"&dateiobjekt.Name&vbNewLine&"DOS-Dateiname:	"&dateiobjekt.ShortName&vbNewLine&vbNewLine
 counter=counter+1
Next

If msg="" then
 MsgBox "Keine Datei genannt"
Else
 MsgBox msg
End If

Gruß, /root!

 

OKAY, Vielen Dank, @root

Mein WinZip ist wohl ein bischen alt. WinRar hat die Datei erkannt.
Ich habe jetzt Deine Textversion genommen und in einen Editor kopiert und dann als *.vbs abgespeichert.

Ich hatte aber kein WinScript installiert, also konnte nicht gehen.
Jetzt habe ich mir WinScript 5.6 geladen und installiert und es geht
SUPER !!! Danke.

(P.S. WinScript scheint nicht standardmässig bei einem frisch installiertes XP dabei zu sein).