Try
 
            'TEST!!!
            Dim dir As New IO.DirectoryInfo(Spiel1)
            Dim fil As IO.DirectoryInfo
 
            For Each fil In dir.GetDirectories
 
                n = n + 1
 
                Label2.Text = n
 
                Spiel2 = fil.FullName
 
                Spiel2 += "9"
 
                Directory.Move(fil.FullName, Spiel2)
                System.Threading.Thread.Sleep(500)
 
                Directory.SetCreationTime(Spiel2, Now)
                Directory.SetLastAccessTime(Spiel2, Now)
                Directory.SetLastWriteTime(Spiel2, Now)
                Directory.SetCreationTimeUtc(Spiel2, Now)
                Directory.SetLastAccessTimeUtc(Spiel2, Now)
                Directory.SetLastWriteTimeUtc(Spiel2, Now)
 
            Next
 
        Catch ex As Exception
 
        End Try