dim FileB as FileListBox FileB.Path=app.Path & "\ini" &"\" 编译不过去啊！

Question

dim FileB as FileListBox  '问题出在这里？
FileB.Path=app.Path & "\ini" &"\" For i = 0 To filepth.ListCount
    Combo1.List(i) = Mid(filepth.List(i), 1, filepth.ListCount - 4) 
Next i我是想先取得程序所在文件夹下ini里面的文件名，去掉扩展名和点，再显示到Combo1上。不知道那里出错了，请指教。
如果有更好的方法能实现就更好了。

Answer 1

这样不行。在窗体上放一个 filelistbox 控件，名字叫 fileB，设置成隐藏。然后运行试试。
另外，代码中有错误。你定义提 fileB，后面为何又变成 filepth ？不用 filelistbox 的办法也有，用dir()来遍历。网上多是代码，去搜一下。

Answer 2

在窗体上放一个 filelistbox 控件，名字叫 fileB，设置成隐藏。
FileB.Path=app.Path & "\ini" &"\" For i = 0 To FileB.ListCount - 1
    Combo1.List(i) = Mid(FileB.List(i), 1, InStrRev(FileB.List(i), ".") - 1)
Next i