Hi,
this is my code:
'Show content of folder
Private Function leseVerzeichnisinhalt(ByRef adropdown As CuteEditor.RichDropDownList, ByVal aOrdner As String)
Dim result As Boolean = True
Dim verzeichnispfad As String
Dim dateipfad As String
verzeichnispfad = getWebpfad() & Dokupfad & aOrdner
Dim d As DirectoryInfo = New DirectoryInfo(verzeichnispfad)
If d.Exists Then
Dim d_unterliste As DirectoryInfo() = d.GetDirectories()
Dim d_unter As DirectoryInfo
For Each d_unter In d_unterliste
leseVerzeichnisinhalt(adropdown, aOrdner & "/" & d_unter.Name)
Next
Dim f As FileInfo() = d.GetFiles()
Dim datei As FileInfo
For Each datei In f
dateipfad = aOrdner & "/" & Server.UrlEncode(datei.Name)
adropdown.Items.Add(dateipfad, "[WZKPHTMLDOCLINK:]" & dateipfad)
Next
End If
result = False
End Function
MAIN SUB:::
dropdown = DirectCast(Editor.ToolControls("Links").Control, CuteEditor.RichDropDownList)
richitem = dropdown.Items(0)
dropdown.Items.Clear()
dropdown.Items.Add(richitem)
leseVerzeichnisinhalt(dropdown, "")
Thanks
Juergen