Sub ListIni()
Dim LB As Variant, FName As String, Mask As String
Mask = "C:\Temp\m????12052003.*"
Set LB = Worksheets("Лист1").ListBox1
LB.Clear
FName = Dir(Mask)
While FName <> ""
LB.AddItem (FName)
FName = Dir
Wend
End Sub
Список файлов в каталоге
Нужно заполнить список(Listbox) именами определенных файлов в заданной директории(текущей или указанной),найденных по маске, к примеру
"m????12052003.*"
Благодарю за ответы.
"m????12052003.*"
Благодарю за ответы.
Цитата:
Originally posted by BeginerVBA
Нужно заполнить список(Listbox) именами определенных файлов в заданной директории(текущей или указанной),найденных по маске, к примеру
"m????12052003.*"
Благодарю за ответы.
Нужно заполнить список(Listbox) именами определенных файлов в заданной директории(текущей или указанной),найденных по маске, к примеру
"m????12052003.*"
Благодарю за ответы.
На листе "Лист1" расположен ListBox1.
Код: