Dateiliste als Anzeige in Inputbox-Funktion
Verfasst: Mi, 07.03.2012 15:18
Hallo,
vielleicht eine komische Frage... aber mich interessierts
Ich habe folgenden Code:
Nun folgendes Problem:
Verwende ich MsgBox(AllFiles) zeigt es mir eine ordentliche Liste der Dateien an.
Wenn ich allerdings InputBox(AllFiles) verwende, kommt nur nach dem 1. Eintrag ein Zeilenumbruch, der Rest landet in 1 Zeile.
Wie kann ich erreichen, dass auch die Anzeige bei InputBox funktioniert.
Anmerkung:
Die Dateiliste war dazu gedacht, dass man aus dieser Liste eine Datei in die InputBox eingibt, welche dann umbenannt/gelöscht/kopiert wird.
vielleicht eine komische Frage... aber mich interessierts
Ich habe folgenden Code:
Code: Alles auswählen
Sub InputBox_Anzeige
Dim NextFile As String
Dim AllFiles As String
AllFiles = ""
NextFile = Dir("c:\Verzeichnis\", 0)
While NextFile <> ""
AllFiles = AllFiles & Chr(13) & NextFile
NextFile = Dir
Wend
InputBox(AllFiles)
End SubVerwende ich MsgBox(AllFiles) zeigt es mir eine ordentliche Liste der Dateien an.
Wenn ich allerdings InputBox(AllFiles) verwende, kommt nur nach dem 1. Eintrag ein Zeilenumbruch, der Rest landet in 1 Zeile.
Wie kann ich erreichen, dass auch die Anzeige bei InputBox funktioniert.
Anmerkung:
Die Dateiliste war dazu gedacht, dass man aus dieser Liste eine Datei in die InputBox eingibt, welche dann umbenannt/gelöscht/kopiert wird.
