DirsCombo_Read

Read directories in a specified folder into a combobox
Needs FrmBr having Cbo1

CodeFunctionName
What is this?

Public

Tested

Original Work
Sub DirsCombo_Read(ComboName, Optional LocPath = "")
With FrmBr
.Controls(ComboName).Clear ' .Cbo1.Clear
Fii = FixPath()
If LocPath > "" Then Fii = LocPath
attr = vbDirectory + vbHidden + vbSystem
di = Dir(Fii, attr)
Do Until di = ""
If di = "." Or di = ".." Then GoTo 300
If GetAttr(FixPath(fii) & di) = vbDirectory Then .Controls(ComboName).AddItem di
300:
di = Dir
Loop
.Show
End With
End Sub

ComboName, Optional LocPath

Views 4,336

Downloads 1,291

CodeID
DB ID

ANmarAmdeen
602
Revisions

v1.0

Monday
June
18
2018