ComboBox filteren

[ColdDeath]

Hallo,

De volgende code:

c01 = "C:\Voorbeeld\" & "*.txt"
ComboBox3.List = Filter(Split(CreateObject("wscript.shell").exec("cmd /c Dir """ & c01 & """ /b").stdout.readall, vbCrLf), ".")

De combobox wordt gevuld met:

001.txt
002.txt
003.txt

Ik wil het gedeelte ".txt" eruit filteren. De lijst moet er als volgt uit komen te zien:

001
002
003

Hoe doe ik dat?


Met vriendelijke groet,
Willie Roelofs

 

[MDN111]

Dag ColdDeath !

Probeer deze eens:

c01 = "C:\Voorbeeld\" & "*.txt"
arr = Filter(Split(CreateObject("wscript.shell").exec("cmd /c Dir """ & c01 & """ /b").stdout.readall, vbCrLf), ".")
For i = LBound(arr) To UBound(arr)
    arr(i) = Replace(arr(i), ".txt", "")
Next
ComboBox3.List = arr

Grtz,
MDN111.

 

[ColdDeath]

Daar zou ik nooit op gekomen zijn, ontzettend bedankt!