свободный файл

Привет. Задача такая. Создать текстовый документ. Если документ существует, надо его не переписывать, а добавить счётчик. Dim FSO, Name, Ext Set FSO = CreateObject("Scripting.FileSystemObject") Name = "777" Ext = ".txt" If Not fso.FileExists(Name) Then Set Txt = FSO.CreateTextFile(Name...