Recursive Function

[creyn]

Is it possible to pull files based on date using the Recursive Function? Below is the code I am using

Option Compare Database

Public Sub Command0_Click()
Dim MyFolder As String
Dim MyFile As String
Dim MyFolder2 As String
Dim DQ As String
Dim MyData As String
Dim myQueryName As String
Dim myExportFileName As String
Dim fso As Object
Dim fld As Folder
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
    .Title = ""
    .AllowMultiSelect = False
    intialfilename = ""
    
    If .Show = True Then
        For Each varfile In .SelectedItems
            strFolder = varfile
        Next
    Else
        rtn = SysCmd(4, "Action aborted by user")
        Exit Sub
      End If
    End With
    
    txtfolder = strFolder
    
    Set fso = New FileSystemObject
    Set fld = fso.GetFolder(strFolder)
    RecursiveSearch fld
End Sub
Private Sub RecursiveSearch(fld As Folder)
Dim fold As Folder
Dim sysdate As Date
Dim fil As File
Dim strTemp As String
Dim colFolders As New Collection
Dim vFolderName As Variant
    For Each fold In fld.SubFolders
        txtresults = txtresults & "Folder:  " & fold.Path & "" & vbCrLf
        RecursiveSearch fold
    Next
    For Each fil In fld.Files
        txtresults = txtresults & "File:      " & fil.Path & vbCrLf
 Next
End Sub

 

[Micron]

you might want to take a look at Allen Browne's code for this as I'd trust it more than what you have. Firstly, because you don't seem to have Option Explicit as your default, which some would say means that you deserve what you get. In support of this notion, I see that you are using but have not declared at least one variable or object, strFolder.

 

[creyn]

I will try the Allen Browne's code. Hopefully I can get it to only bring back the dates for the files I am looking for.

 

[Micron]

you have declare a variable for a file date Dim sysdate As Date
but never assigned anything to it. And the date you want is? I presume created, but there are others. Here's a thread that you might want to look at for getting the create date http://www.mrexcel.com/forum/excel-...-created-using-visual-basic-applications.html