Dim cd As DateTime = DateTime.Now
 
        Dim dirym As String = "C:\mydata\" & cd.Year.ToString() & "\" & _
          cd.Month.ToString()
 
        If Not IO.Directory.Exists(dirym) Then
            IO.Directory.CreateDirectory(dirym)
        End If

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist