Map van naam laten veranderen in VB

[BoomKikker]

Hallo lezers,

Ik wil in Visual Basic een map van naam laten veranderen als ik op een button druk en hem weer laten veranderen als ik een tweede keer druk, maar het werkt niet
Ik gebruik deze code

If My.Computer.FileSystem.DirectoryExists("D:\voorbeeld1") Then
My.Computer.FileSystem.RenameDirectory("D:\voorbeeld1", "voorbeeld2")
End If

If My.Computer.FileSystem.DirectoryExists("D:\voorbeeld2") Then
My.Computer.FileSystem.RenameDirectory("D:\voorbeeld2", "voorbeeld1")
End If

Kan iemand me zeggen wat ik fout doe ?

Of weet iemand nog een andere manier om een map van naam te veranderen als ik mijn pc opstart ?

 

[BoomKikker]

Eindelijk gevonden.
De juiste manier is

If My.Computer.FileSystem.DirectoryExists("D:\voorbeeld1") Then
My.Computer.FileSystem.RenameDirectory("D:\voorbeeld1", "voorbeeld2")

Else : My.Computer.FileSystem.RenameDirectory("D:\voorbeeld2", "voorbeeld1")
End If