Работа с именами файлов в определенной папке.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

monster_rat

Дата: Пятница, 26.10.2012, 12:26 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Здравствуйте. Необходим макрос который бы обращался в папку содержащую файлы именованные (001,002...012итд). И присваивал некой переменной имя последнего по порядку файла +1.

Один злой мальчик при каждом падении звезды загадывал падение еще одной и за выходные уничтожил целую галактику.

Сообщение отредактировал monster_rat - Пятница, 26.10.2012, 12:31

Ответить

Саня

Дата: Пятница, 26.10.2012, 12:49 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

[vba]

Code

Function GetNextFileName() As String
     Const sFOLD As String = "C:\Temp\"

     Dim sName As String, sLastName As String
     Dim i%

     sName = Dir(sFOLD & "*.*")
     sLastName = sName
     Do
         'Debug.Print sName
         sName = Dir   'след. файл в папке
         If Len(sName) = 0 Then
             i = Val(sLastName)
             Exit Do
         Else
             sLastName = sName
         End If
     Loop
     GetNextFileName = Format$(i + 1, "000")
End Function

[/vba]