Variabler Ordnername VB.Net

Dim µDI As New System.IO.DirectoryInfo("........")   'hier den Ordnerpfad eintragen  
Dim µD As String = µDI.Name.Substring(µDI.Name.Length - 8)
Dim µDate As New Date(CInt(µD.Substring(0, 4)), CInt(µD.Substring(4, 2)), CInt(µD.Substring(6, 2)))

  For Each µFolder As String In System.IO.Directory.GetDirectories("......", "Service????????")  
      Try
        Dim µDI As New System.IO.DirectoryInfo(µFolder)
        Dim µD As String = µDI.Name.Substring(µDI.Name.Length - 8)
        Dim µDate As New Date(CInt(µD.Substring(0, 4)), CInt(µD.Substring(4, 2)), CInt(µD.Substring(6, 2)))
        My.Computer.FileSystem.CopyDirectory(µFolder, "C:\Service-CD\" & µFolder.Split("\").Last, True)  
      Catch ex As Exception
        'dann ist es wohl kein Datum am Ende  
      End Try
    Next

Dim r As New System.Text.RegularExpressions.Regex("\d{8}$")  
Try
    For Each mydir As String In System.IO.Directory.GetDirectories("C:\Ordner", "Service*").Where(Function(d) r.IsMatch(d))  
          My.Computer.FileSystem.CopyDirectory(mydir, "C:\Service-CD\" & System.IO.Path.GetFileName(mydir))  
    Next
    msgbox("Finished")  
Catch ex As Exception
   MsgBox(ex.Message)
End Try