2015年3月9日 星期一

依檔案的建立日期刪除檔案


 Dim delday As Date = "2015/2/1"
        TextBox1.Text = ""
        For Each fname As String In System.IO.Directory.GetFileSystemEntries("d:\csv_backup", "*.txt")
            If FileDateTime(fname) < delday Then
                TextBox1.AppendText(fname & "  *" & vbCrLf)
                kill ( fname)
            Else
                TextBox1.AppendText(fname & vbCrLf)
            End If
        Next

沒有留言:

張貼留言