遍历跟目录文件到COMBO控件中
比如根目录有 若干.ini 文件
我想把这些INI文件遍历到COMBO控件中
遍历进后不带后缀名,但指定遍历ini文件
请问怎么做？
[解决办法]
加个file控件
Private Sub Form_Load()
Dim x As Integer
File1.Path = App.Path
File1.Pattern = "*.ini "
For x = 0 To File1.ListCount - 1
Combo1.AddItem Left(File1.List(x), Len(File1.List(x)) - 4)
Next
End Sub
[解决办法]
不需要控件，直接用 Dir 函数就可以实现：
Dim strFile As String
strFile = Dir( "C:\*.ini ")
Combo1.Clear
Do Until strFile = " "
Combo1.AddItem Mid(strFile, 4, Len(strFile) - 7)
strFile = Dir()
Loop
[解决办法]
Dim strFile As String
strFile = Dir( "C:\*.ini ")
Combo1.Clear
Do Until strFile = " "
Combo1.AddItem Mid(strFile, instrrev(strFile, "\ ")+1, instrrev(strFile, ". ")-instrrev(strFile, "\ ")-1)
strFile = Dir()
Loop
