VB6.0如何用循环语句读取指定文件夹中所有特定扩展名文件的特有名称?

Question

现有一已知路径的文件夹,里面文件扩展名都为.HLS,但每个文件都有子扩展名(我为存储特定信息而设立的),如:
FC-TAS.abc.HLS
something.lol.HLS
Example.999.HLS
现在要在某事件中加入代码,让某Combobox按照文件名第一个字母从a到z的顺序从上到下添加若干项,每一项对应该文件夹中一个.HLS文件,但省略扩展名和子扩展名,如以以上情况为例,列表框显示的几项应为:
Example
FC-TAS
something

大概需要用循环语句解吧,麻烦高手提供一下整个过程的代码及思路解释,万分感谢!

Answer 1

Private Sub Command6_Click()
Dim s1 As String
Dim s2 As String
Dim s3 As String
Dim s4 As String
Dim i As Integer
s1 = "d:\TC3\" '定义路径，可根据你自己修改
s2 = "HLS" '定义扩展名，可根据你自己修改
s3 = Dir(s1)
Me.Combo1.Clear
Do While s3 <> ""
i = InStrRev(s3, ".")
s4 = Right(s3, Len(s3) - i)
If s4 = s2 Then '要求的类型
s3 = Replace(s3, "." & s2, "") '去掉后缀
i = InStrRev(s3, ".")
If i > 0 Then
s4 = Left(s3, i - 1)
If s4 <> "" Then
Me.Combo1.AddItem s4
End If
End If
End If
s3 = Dir() '继续查找
Loop
End Sub
'至于排序，你可以设置COMBO1的SORTED属性为TRUE就可以了。

Answer 2

Private Sub Command1_Click()
Dim Str1$, Str2$, mPath$
mPath = "e:\test\" '路径设置
Str1 = Dir(mPath & "*.hls") '查找类型
Do While Str1 <> ""
Str2 = Left(Str1, InStr(Str1, ".") - 1)
Combo1.AddItem Str2
Str1 = Dir
Loop
End Sub本回答被提问者采纳

Answer 3

来个最简单的
记得把combo的sorted设为true

Private Sub Command1_Click()
Dim Str1$, mPath$
mPath = "d:\" '路径设置
Str1 = Dir(mPath & "*.HLS")
Do While Str1 <> ""
t = Split(Str1, ".")
Combo1.AddItem t(0)
Str1 = Dir
Loop
End Sub

Answer 4

Private Sub Command6_Click()
Dim s1 As String
Dim s2 As String
Dim s3 As String
Dim s4 As String
Dim i As Integer
s1 = "d:\TC3\" '定义路径，可根据你自己修改
s2 = "HLS" '定义扩展名，可根据你自己修改
s3 = Dir(s1)
Me.Combo1.Clear
Do While s3 <> ""
i = InStrRev(s3, ".")
s4 = Right(s3, Len(s3) - i)
If s4 = s2 Then '要求的类型
s3 = Replace(s3, "." & s2, "") '去掉后缀
i = InStrRev(s3, ".")
If i > 0 Then
s4 = Left(s3, i - 1)
If s4 <> "" Then
Me.Combo1.AddItem s4
End If
End If
End If
s3 = Dir() '继续查找
Loop
End Sub
'至于排序，你可以设置COMBO1的SORTED属性为TRUE就可以了。

Answer 5

Private Sub Command1_Click()
Dim Str1$, Str2$, mPath$
mPath = "e:\test\" '路径设置
Str1 = Dir(mPath & "*.hls") '查找类型
Do While Str1 <> ""
Str2 = Left(Str1, InStr(Str1, ".") - 1)
Combo1.AddItem Str2
Str1 = Dir
Loop
End Sub本回答被提问者采纳

Answer 6

来个最简单的
记得把combo的sorted设为true

Private Sub Command1_Click()
Dim Str1$, mPath$
mPath = "d:\" '路径设置
Str1 = Dir(mPath & "*.HLS")
Do While Str1 <> ""
t = Split(Str1, ".")
Combo1.AddItem t(0)
Str1 = Dir
Loop
End Sub