adding file name into combobox list, (microsoft acces macro)

Dim fso As New FileSystemObject

Set fls = fso.GetFolder(alamatFile).Files

i = 1
For Each f In fls
    filename_STR(i) = f.Name
    If FlsSysObj.GetExtensionName(filename_STR(i)) = “txt” And filename_STR(i) <> “” Then
        Form_main.Day1.AddItem filename_STR(i)
        i = i + 1
    End If
Next

Set fls = Nothing