VB获取指定文件夹下所有后辍为ini的文件名
来源:百度知道 编辑:UC知道 时间:2024/06/06 17:03:40
Private Sub Command1_Click()
Dim nName As String
Combo1.Clear
nName = Dir("D:\windows\*.ini", 7)
Do
If nName = "" Then Exit Do
Combo1.AddItem Left(nName, Len(nName) - 4)
nName = Dir()
Loop
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
End Sub
来学习。
用dir函数,怎么使用自己到网上搜索就可以了
Private Sub Command1_Click()
Dim Fstr As String
Dim FileName As String
Dim Pos As Integer
Fstr = Dir("D:\123\*.*")
Pos = 0
Do
If Fstr = "" Then Exit Do
Pos = InStrRev(LCase(Fstr), ".ini")
If Pos > 0 Then
If LCase(Mid(Fstr, Pos, Len(Fstr))) = ".ini" Then
Combo1.AddItem Mid(Fstr, 1, Pos - 1)
End If
End If
Fstr = Dir()
Loop
End Sub