ich möchte gerne ein Verzeichnis über einen Shell-Befehl auslesen und in eine Datei schreiben. Das funktioniert soweit. Leider ist der UniCode dabei falsch und die Umlaute werden falsch ausgelesen.
Hier mein kleines Programm:
Sub CMD()
Dim x
Dim Datei As String
Dim Ausgabe As String
Dim Befehl As String
Datei = Range("Verzeichnis").Value & "*.xl*"
Ausgabe = Range("Verzeichnis").Value
Befehl = "cmd /c "
Befehl = Befehl & "@echo on " & " && "
Befehl = Befehl & "chcp 1250 " & " && "
Befehl = Befehl & "DIR """ & Datei & """ /a-d /b > """ & Ausgabe & """Verzeichnis.txt" & " && _
Befehl = Befehl & "@echo on " & " && "
Befehl = Befehl & "EXIT "
x = Shell(Befehl)
End Sub
Wenn ich die Zeilen in eine Batch schreibe, funktioniert es.
Ich bedanke mich schon einmal im Voraus.
Gruß aus Münster
Stefan