MSDOS ansprechen? UMLAUTPROBLEM
05.09.2002 13:39:39
Davidx
Vielleicht hat ja einer nen TIP??
Sub msdos()
Dim Exe
Exe = Shell("C:\WINDOWS\COMMAND.COM", 1)
SendKeys "äöü", True
End Sub
MSDOS-Eingabeauforderung zeigt dann:
C:\Eigene Dateien>\
\
\
Sub msdos2()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\TEST.bat", True)
a.WriteLine ("äöü")
Dim Exe
Exe = Shell("D:\TEST.bat", 1)
End Sub
MSDOS-Eingabeauforderung zeigt dann irgendwelche Symbole?!, aber kein d:\äöü