Dateiliste als Anzeige in Inputbox-Funktion

[theindless]

Hallo,

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 Sub

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.

[F3K Total]

Hallo,
anbei mal ein Beispiel mit einem einfachen Dialog.
Gruß R

[theindless]

Hallo R,

danke für den MusterCode... bestimmt mal hilfreich.

Aber mich würde explizit die Lösung mit InputBox interessieren...
Ist es möglich als Anzeigetext mehr Zeilen unterzubringen?

[F3K Total]

Nicht das ich wüßte.
Wozu brauchst Du die Inputbox?
Der Dialog erledigt doch viel mehr.
Du kannst aus der Dateiliste auswählen, verändern und wenn Du auf OK drückst hast Du den ausgewählten bzw. veränderten Text genauso als Variable zu Weiterverarbeitung vorliegen!
Bahnhof!
Gruß R

[theindless]

Hallo R,

Wozu brauchst Du die Inputbox?
Der Dialog erledigt doch viel mehr.

Das stimmt natürlich!

Die Frage hat auch einen weiteren Hintergrund:
Ich versuche mich gerade in die Basic-Programmierung reinzuarbeiten und auch Zusammenhänge, Vorgehensweisen, Systematiken zu begreifen.
Darum hat mich insbesondere interessiert, ob ich hier was falsch mache, oder es einfach nicht geht.

Scheinbar geht es nicht... Gut!