[neo21]

LilLoco, Спасибо
Код:

Код:

Dim d1, d2, d3, d4, d5, d6

        d1 = DateTime.Now.Year
        d2 = DateTime.Now.Month
        d3 = DateTime.Now.Day
        d4 = DateTime.Now.Hour
        d5 = DateTime.Now.Minute
        d6 = DateTime.Now.Second

        My.Computer.FileSystem.RenameFile(AppDomain.CurrentDomain.BaseDirectory + "test.txt", "NewTest_" & d1 & "_" & d2 & "_" & d3 & "_" & d4 & "_" & d5 & "_" & d6 & ".txt")