listbox in een userform (met gegenereerde inhoud door VBA) aan te passen?

[hout80]

Hallo,

Met behulp van onderstaande code wordt een listbox gevuld met de bestandsnamen uit een bepaalde map. Echter de bestandsnamen die worden getoond in de listbox zijn inclusief hun extensie.(.xls in mijn geval).
Is er ook een mogelijkheid om de extensie niet te laten zien in de betreffende listbox?

Alvast bedankt!

hugo

Private Sub Userform_Initialize()
Bestand = Dir("K:\Beurs\medewerker\*.xls")
Do While Bestand <> ""
    ListBox1.AddItem Bestand
    Bestand = Dir
Loop
End Sub

 

[OctaFish]

Dan moet je de bestandsnaam ontdoen van de extensie:

ListBox1.AddItem Left(Bestand, InStr(1, Bestand, ".x") - 1)

Of:

ListBox1.AddItem Left(Bestand, Len(Bestand) - 4)

 

[hout80]

Perfect!

Precies wat ik bedoelde.

Hartelijk dank!

Hugo

 

[snb]

of gebruik de VBA code die daarvoor gemaakt is

sub snb()
  c00="K:\Beurs\medewerker\"
  c01=Dir(c00 & "*.xls")

  with CreateObject("scripting.filesystemobject")
    Do While c01 <> ""
      c02= c02 & "|" & .GetBaseName(c00 & c01)
      c01= Dir
    Loop
  end with

   Listbox1.List=split(mid(c02,2),"|")
End Sub

 

[Warme bakkertje]

Sub snb()
    c00 = "G:\Mijn documenten\Zaak\"
    c01 = Dir(c00 & "*.xls")

    With CreateObject("scripting.filesystemobject")
        Do While c01 <> ""
            c02 = c02 & "|" & .GetBaseName(c00 & c01)
            c01 = Dir
        Loop
    [COLOR="#FF0000"]End With[/COLOR]
    ListBox1.List = Split(Mid(c02, 2), "|")
End Sub