Сохранить файл в каталоге

[dimmon777]

Добрый день!
В общем каталоге находятся файлы: 001_отчет.ods, 002_отчет.ods, 003_отчет.ods .................. 265_отчет.ods
Нужно сохранить текущий файл под именем "больше на единицу", т.е. 266_отчет.ods
Хотя бы подтолкните в нужном направлении. Заранее спасибо!

[JohnSUN]

Если 265_отчет.ods был создан, а затем удалён - следующий файл должен быть 265_отчет.ods или все-таки 266_отчет.ods?

[rami]

Есть три варианта решения:

1. перебор всех файлов с выбором максимального:

Код Выделить Развернуть

Sub Main  Dim url$, s$, fName$
url="///Путь/к/папке/*.ods"
s=left(dir(url),3)
Do
fName=left(dir(),3)
If fName="" Then Exit Do
If strComp(fName,s) Then s=fName
Loop
Print str(int(s)+1)+"_отчет.ods"
End Sub

2. в цикле формировать имена файлов и проверять на существование, если последовательность без пропусков, первое отсутствующее имя файла будет искомым.

3. формировать имя файла как номер текущего дня плюс "_отчет.ods". Этот вариант может быть лучшим:

Код Выделить Развернуть

Sub Main
Print str(DatePart("y",now))+"_отчет.ods"       'номер отчёта текущего дня
End Sub

У каждого варианта свои особенности.