Private Sub cmdDirInfo_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdDirInfo.Click
 
 
        Dim di As New DirectoryInfo("..\..\Zeiterfassung Daten")
        If Not di.Exists Then di.Create()
        If Not Directory.Exists("..\..\Zeiterfassung DatenDaten_" & _
          Now.ToString("yyyy")) Then 
          di.CreateSubdirectory("Daten_" & Now.ToString("yyyy"))  
        End If
 
 
        Dim fi As New FileInfo("..\..\Zeiterfassung DatenDaten_" & Now.ToString( _
          "yyyy") & "\" & Now.ToString("MMMM") & ".txt")
 
        If fi.Exists = False Then
            fi.Create()
        Else
            MsgBox("Die Datei existiert bereits!")
        End If
 
    End Sub

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008