OpenOffice.info

Hallo R,

[quote]Wozu brauchst Du die Inputbox?
Der Dialog erledigt doch viel mehr.[/quote]

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! :D

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

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?

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

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

Hallo,

vielleicht eine komische Frage... aber mich interessierts :D

Ich habe folgenden Code:

[code]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[/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.