VBS/WSH/JS

SendMessage · Отправлено: **11:56, 23-07-2011** | #2

Можно и с текстовичком.

Концепция такая - в том месте, где при создании архива должен выставляться его порядковый номер, вписать предлагаемую функцию.

Код:

CheckFile = "z:\check.txt"

'пример
archfile = "qwerty_" & SetNumberArchive(CheckFile) & ".arj"

Function SetNumberArchive(f)
  Dim arrCheck
  Dim CountArch
  Dim DateCheck
  Dim objFSO
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FileExists(f) Then
      arrCheck = Split(objFSO.OpenTextFile(f).ReadLine, "#", 2)
      DateCheck = arrCheck(0)
      CountArch = arrCheck(1) + 1
    End If
    If Not CDate(DateCheck) = Date Then CountArch = 1
    objFSO.OpenTextFile(f, 2, True).Write Date & "#" & CountArch
    SetNumberArchive = CountArch
End Function

Думаю, разобраться несложно. Функция регистрирует свои запуски в определенную дату.

Dt83 · Отправлено: **11:48, 25-07-2011** | #3

правильно я понимаю функция регистрирует запуски начиная нумерацию с 1?

SendMessage · Отправлено: **13:10, 25-07-2011** | #4

Цитата Dt83:

правильно я понимаю функция регистрирует запуски начиная нумерацию с 1? »

Да.

Dt83 · Отправлено: **13:23, 25-07-2011** | #5

не могу разобраться чтобы нумерация шла с 01...спасибо!

SendMessage · Отправлено: **14:14, 25-07-2011** | #6

Цитата Dt83:

чтобы нумерация шла с 01 »

Right("0" & SetNumberArchive(CheckFile), 2) - нумерация от 01 до 99
Right("00" & SetNumberArchive(CheckFile), 3) - нумерация от 001 до 999
Ну и т. д.

Dt83 · Отправлено: **14:29, 25-07-2011** | #7

Спасибо большое!