Text mit mehreren Dateien replacen?

MOD4ever

Mitglied
Hi,

ich steh gerade vor einem Problem bei meinem Programm. Ich hab einen Ordner, indem sich mehrere Bilder befinden (immer verschieden viele). Jetzt muss ich jeden Dateinamen zwischen eine HTML-Code schreiben lassen:

Code:
Dim bilder As String
bilder = Dir(ApplicationPath & "images\" & "*.*")
While bilder <> ""
list1.AddItem "<img src="http://webspace/bilder/ & bilder & """ width=500 border=0>" & vbNewLine
bilder = Dir()
Wend

Jetzt hab ich noch einen Text in einer Textbox stehen, indem eine Variable "((bilderliste))" steht. Die Variable soll jetzt durch die geschriebenen Zeilen ersetzt werden. ( <img src="http://webspace/bilder/ & bilder & """ width=500 border=0> )

Wie bekomm ich das am einfachsten hin? Vielleicht ist meine Lösung, die Bildnamen auszulesen schon zu kompliziert.

Danke schonmal!
MfG MOD4ever
 

Neue Beiträge

Zurück