Dim fileName As String
        fileName = Application.StartupPath & "\BZ2\" & "datei1.bz2"
 
        'MessageBox.Show("Created: " & File.GetCreationTime(fileName))
        'MessageBox.Show("Date: " & DateTime.Now)
 
 
        If File.GetCreationTime(fileName) < DateTime.Now Then
            MessageBox.Show("true")
        End If