[Iska]

Код:

With DateTime.Now
        My.Computer.FileSystem.RenameFile(AppDomain.CurrentDomain.BaseDirectory + "test.txt", _
                "NewTest_" & .Year & "_" & .Month & "_" & .Day & "_" & .Hour & "_" & .Minute & "_" & .Second & ".txt")
End With