[OSArev]

Добавить в первую строку текстового файла его имя и дату »

Код:

Dim fso, f 
Set fso = CreateObject("Scripting.FileSystemObject") 

myDate=Right("0" & Day(Date), 2)&"."& Right("0" & Month(Date), 2)&"."&Year(Date)

Set f = fso.OpenTextFile("C:\Users\OSA\Desktop\test.txt", 1) 'заменить путь
ReadAllTextFile = f.ReadAll 

Set f = fso.OpenTextFile("C:\Users\OSA\Desktop\test.txt", 2, True) 
f.WriteLine("test.txt" & "_" & myDate) 
f.Write(ReadAllTextFile) 

MsgBox "Готово!"