VB.Net学习1.（删除文件）

菜鸟自学VB.Net中。。。
突然觉得这个网络世界还是蛮好的，不过有一些小东西很多大神都没有写出来（其实我就是想要手把手教的教程）自己觉得，是时候放出来点菜鸟教程了。。。还请大神绕路！
今天就放一个删除文件的方法吧，只保留当前几天的文件。

	'定义局部变量
    Dim FilePath As String
    Dim NowDate As String
    ’设置文件名等于当前时间
    NowDate = Format(DateTime.Now, "yyyyMMdd")
    ‘设置保留的文件天数
    Dim OldFiles As String = NowDate - 7
    ’定义文件路径
    FilePath = “D:\TestFile“
    ‘查出文件夹所有文件
    Dim files = Directory.GetFiles(FilePath, "*.txt")
    ’遍历
    For Each f As String In files
    ‘得到文件名
        Dim da As String() = f.Split("\")
        Dim db As String() = da(2).Split(".")
        Dim dc As String() = db(0).Split("_")
        ’如果文件小于当前日期NowDate就删除掉
        If dc(0) < OldFiles Then
            File.Delete(f)
        End If
    Next