Visual Basic

GaryT80 wrote:

Does the getFiles method alter the LastaccessedDate?

Public Function ProcessDirectory(ByVal targetDirectory As String) As String()
    Static tcnt As Integer
    Static tfiles As String()
    Static cnt As Integer = 0

    Dim fileEntries As String() = Directory.GetFiles(targetDirectory)
    ' Process the list of files found in the directory.
    Dim fileName As String
    For Each fileName In fileEntries
        ReDim Preserve tfiles(tcnt)
        tfiles(tcnt) = fileName
        tcnt = tcnt + 1

    Next fileName
    Dim subdirectoryEntries As String() = Directory.GetDirectories(targetDirectory)
    ' Recurse into subdirectories of this directory.
    Dim subdirectory As String
    For Each subdirectory In subdirectoryEntries
        ProcessDirectory(subdirectory)
    Next subdirectory
    Return tfiles
End Function