DATE of creation of file...

[sal21]

Based the code above is possible to use tha same FSO object to know the Created Date of file, or i need set a new FSO object?

Code: Select all

Sub ListFolder(sFolderPath As String)

    Dim FS As New FileSystemObject
    Dim FSfolder As Folder
    Dim File As File
    Dim TEST As String
    
    Set FSfolder = FS.GetFolder(sFolderPath)
    
    For Each File In FSfolder.Files
    TEST = Right$(File, 19)
    SQL = "SELECT INDICE FROM DATE_INQ WHERE INDICE='" & TEST & "'"
    Set RS1 = CONN.Execute(SQL)
    
    If RS1.EOF Then
        Call TEST_CLONI(File)
        End If
        
    Next File
    
    Set FSfolder = Nothing
    
End Sub

[HansV]

You can use File.DateCreated

[John Gray]

Beware that the date created information is NOT reliable. The only date field which is reliable is the date modified.