本人刚接触resources内容，不太精通，特来请教

listbox.items.clear()
Dim d As New ("D:\resources\") '这里是你的文件夹路径
            Dim f As
            For Each f In d.GetFiles
               listbox.items.add(f.name)
            Next