For i = CInt(Label1.Text) To daysi Step 1
 
 
            Dim filename = DateTime.Today.ToString(i & "_MM_yyyy") & ".csv"
 
 
            If System.IO.File.Exists(My.Application.Info.DirectoryPath & _
              "\Daten\" & Jahr & "\" & Monat & "\" & filename) Then
 
            Else
 
                Dim fs As IO.FileStream = File.Create( _
                  My.Application.Info.DirectoryPath & "\Daten\" & Jahr & "\" & _
                  Date.Now.Month.ToString("00") & "\" & filename)
                fs.Close()
 
            End If
 
        Next