Как переименовать файлы в VB.NET, чтобы они имели уникальный суффикс?

Я понимаю, как переименовать файл в VB.NET, как я использовать в коде в конце моего поста. Однако мне было интересно, можно ли переименовать файл, и если файл существует, то переименовать его и добавить +1 к имени файла?

Итак, если бы я запустил код.

'Запустить в первый раз

My.Computer.FileSystem.RenameFile("c:\test\test.txt", "c:\test\NewName.txt")

'Запустить еще раз, но он должен добавить +1, так как файл уже существует, поэтому он должен быть "c:\test\NewName1.txt"

My.Computer.FileSystem.RenameFile("c:\test\test.txt", "c:\test\NewName.txt")

Обновление

Я решил, что вместо того, чтобы переименовывать и +1, было бы лучше просто поставить дату, поэтому для тех, кто борется так же, как я:

My.Computer.FileSystem.RenameFile("c:\test\test.txt", "Test" & Format(Date.Now, "ddMMyy") & ".txt")