Определите наибольшее значение в наборе файлов - PullRequest
Новая
       63

Определите наибольшее значение в наборе файлов

0 голосов
/ 04 ноября 2019

У меня есть папка с множеством файлов со структурой имени файла, например: 

SOP-JV-**125**-VLG-BK White Vinyl Sizes-EN-10172019

Каждый файл имеет - в качестве разделителя.

Я пишу Sub, который создаст новый файл для пользователя, основываясь на определенных значениях, которые они заполняют, используя форму в MS Access.

Как я могу получить файлыи определить, какой самый высокий идентификатор СОП (значение, которое я выделил жирным шрифтом в названном выше имени файла)?

1 Ответ

3 голосов
/ 04 ноября 2019

Я бы сделал что-то подобное, используя filesystemobject. Я еще не тестировал этот код, но сделаю это, когда у меня будет шанс. 

Public Function GetMaxNumber(strPath As String, _
                                Optional strDelim As String = "-", _
                                Optional lngSection As Long = 2) As Long

Dim fso As Scripting.FileSystemObject
Dim fld As Scripting.Folder
Dim fl As Scripting.File
Dim s() As String
Dim l As Long

Set fso = New Scripting.FileSystemObject
Set fld = fso.GetFolder(strPath)

For Each fl In fld.Files
    s = Split(fl.Name, strDelim)
    l = CLng(s(lngSection))
    If l > GetMaxNumber Then GetMaxNumber = l
Next fl

End Function
...