Directory creaton Date in VB.Net

Question

Directory creaton Date in VB.Net

~OSD~ 2,201

Hi,

I have simple scenario where I am copying a text file to a directory as:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click  
        If IO.Directory.Exists("D:\Lab") Then  
            IO.File.Copy("C:\update.txt", "D:\Lab\Update.txt")  
        Else  
            Me.Close()  
        End If  
    End Sub

What to check the directory creation date (not the last access date, but only the original creation date) and if directory is 7 days old, copy the update.txt file otherwise, no need to copy and exit the application.

Question: How I can modify the code to determine and make a check if directory was originally 7 days old or not.
Any suggestion will be appreciated here.

Accepted answer

2 additional answers

Your answer

Answer 1

LesHay 7,141

Hi
Try this type of thing:

    Dim morethan7daysold As Boolean = (New IO.DirectoryInfo(Path).CreationTime < Now.AddDays(-7))

~OSD~ 2,201 Reputation points

2022-12-12T10:08:10.663+00:00

Thanks for the suggestion and example.
I checked it on a directory it seems to be working fine.

However, if I use the same approach for the FILE check, I am being challenged due to the LAST ACCESS Date.

Dim fileAgeCheck As Boolean = (New IO.FileInfo(srcFile).CreationTime < Now.AddDays(-7))

The above code works fine to check if the file is 7 days old or not, but if the file is (really) old, but recently accessed, it doesn't work well.
Any suggestion here when it come to the file(s)?
LesHay 7,141 Reputation points

2022-12-12T12:04:34.88+00:00

Hi
What coding terminology is 'I am being challenged due to the LAST ACCESS Date', what wxactly do you mean and give an example.
~OSD~ 2,201 Reputation points

2022-12-12T12:10:34.497+00:00
Dim fileAgeCheck As Boolean = (New IO.FileInfo(fileName).CreationTime < Now.AddDays(-7)) If IO.File.Exists(fileName) And fileAgeCheck = True Then MessageBox.Show("File is 7 days old.") Else MessageBox.Show("It's not been 7 days.") End If End Sub

The above code works fine if the file is 7 days old and has NOT been accessed since last 7 days.
I want to check the file creation date only, and ignore if the file has been accessed within 7 days, otherwise, above code returns that file is NOT 7 days old.

Answer 2

RLWA32 49,536

Use system.io.directory.getcreationtime

Answer 3

Hi
To avoid some confusion, here is another example test scenario, This example should be better as it only changes the file creation times to a fixed amount before 'Now' - the previous example would have changed the creation time each time run (which actually wasn't planned for in the example. This new version will not do the same.

    ' test directory with several  
    ' test files Test1....Test5  
    Dim p As String = "C:\Users\lesha\Desktop\TestFiles"  
  
    ' set some creation dates before and  
    ' after 7 days old  
    Dim n As Integer = 5  
    For Each f As String In IO.Directory.GetFiles(p)  
      Dim fi As New IO.FileInfo(f)  
      IO.File.SetCreationTime(f, Now.AddDays(-n))  
      n += 1  
    Next  
  
    For Each f As String In IO.Directory.GetFiles(p)  
      Dim old As Boolean = IO.File.GetCreationTime(f) < Now.AddDays(-7)  
      If old Then  
        MessageBox.Show(IO.Path.GetFileNameWithoutExtension(f) & vbCrLf & "is 7 or more days old.")  
      Else  
        MessageBox.Show(IO.Path.GetFileNameWithoutExtension(f) & vbCrLf & "is less than or equal to 7 days old")  
      End If  
    Next  
  
    Stop

~OSD~ 2,201 Reputation points

2022-12-13T08:51:06.033+00:00

Thanks.
I have accepted and marked your initial reply as answer.

Share via

Directory creaton Date in VB.Net

2 additional answers

Your answer