Loop through files in a folder based on date

[creyn]

I am trying to loop through Files in Folder based upon date that is entered in the Form. Below is the code I am using. I am having an issue with getting the files to be visible. Anyone help is greatly appreciated.

With fDialog
.Title = ""
.AllowMultiSelect = False
Intialfilename = ""

If IsNull(Me.Text6.Value) Then
MsgBox "Date cannot be empty. Please select date in order to proceed with this process."
ElseIf .Show = True Then
varfile = .SelectedItems(1) & "*\data*\ " & Me.Text6.Value
strFolder = varfile
Else
rtn = SysCmd(4, "Action aborted by user")
Exit Sub
End If

 

[creyn]

Yes, I am picking one folder. Then in that folder, there are several folders which each contain files that I am trying to pull. So, instead of the using the File Picker and be forced to pick each file one at a time, I am trying to build my code to get through and find each file that matches this criteria: S:\zCorey\TDD Testing Folder*\data\fof*


The fof is what each file begins with in each folder. I hope what I said makes some sort of sense?

 

[xenou]

that search string matches subfolders in more than one parent folder.
What is the folder you are picking (in this example?)

 

[creyn]

This is the folder: TDD Testing Folder

 

[xenou]

Okay, I'm going to assume you are searching for files in TDD Testing Folder.

What does the date have to do with this now?

I am trying to loop through Files in Folder based upon date that is entered in the Form.

Is that supposed to be a created date? a modified date? Something that shows up in the file names?

 

[creyn]

Yes, I am searching for files in the TDD Testing Folder. I am looking to loop through the files within the folders based upon a Date that is entered.

 

[xenou]

What does the date mean? Is that supposed to be a created date? a modified date? Something that shows up in the file names?

 

[creyn]

It's the Date that shows in the Directory window as Date Modified

 

[Micron]

Surprised your code does not error on use or compiling since you are missing an End With.
Have used this a few times (msoFileDialogFolderPicker) and IIRC, you cannot see files using it. It's for choosing a folder only. To see files, you need the msoFileDialogFilePicker, which only lets you choose one or more files and not just the folder. There is a method posted that looks like this (I modified it slightly to eliminate compile errors). It does what you're asking for (returning a folder name while showing files) but it's not as pretty. You should be able to modify it if you need it to start at a particular folder.

Dim objShell
Dim objFldr
Dim objMyDocs
Dim pathMyDocs As String

Set objShell = CreateObject("Shell.Application")
Set objMyDocs = objShell.Namespace(&H5)
pathMyDocs = objMyDocs.Self.Path

On Error Resume Next
Set objFldr = objShell.BrowseForFolder(0, "pick me", &H4001, pathMyDocs)

If Not (objFldr Is Nothing) Then
  MsgBox objFldr.Items.Item.Path
End If

Set objFldr = Nothing
Set objShell = Nothing
End Sub

 

[creyn]

I will give it a try. Thanks for all your help. I really appreciate it.

 

[xenou]

Micron, he's trying NOT to use a file picker.

Yes, I am picking one folder. Then in that folder, there are several folders which each contain files that I am trying to pull. So, instead of the using the File Picker and be forced to pick each file one at a time, I am trying to build my code to get through and find each file that matches this criteria: S:\zCorey\TDD Testing Folder*\data\fof*