Replace code using a loop

[KGee]

I have a group of folders which exist under one main folder as shown below. More will be added in the future but we currently only have "B"-"F" folders (there is no "A" folder).
\\some_server\some_share\main_folder\
\\some_server\some_share\main_folder\B\file.xls
\\some_server\some_share\main_folder\C\file.xls
\\some_server\some_share\main_folder\D\file.xls
\\some_server\some_share\main_folder\E\file.xls
\\some_server\some_share\main_folder\F\file.xls

I'm setting the doing something like this:
bFolder = "\\some_server\some_share\main_folder\B\file.xls"
cFolder = "\\some_server\some_share\main_folder\C\file.xls"
etc.

And then I have an If block where I check the file date against the current date and before I like this:

If Int(Now) = Int(FileDateTime([B]b[/B]Folder)) Then
' do some stuff
End If
If Int(Now) = Int(FileDateTime([B]c[/B]Folder)) Then
' do some stuff
End If
etc.

Is there a way to update the code and specify that I have folders from B-F and have it loop through the same steps one time for each letter? And if so, is there a way to have it determine B-F without having to hard code that piece of it?

 

[Marcelo Branco]

Hi KGee,

Maybe something like

Dim i As Long
 
    For i = 1 To 5
        If Int(Now) = Int(FileDateTime("\\some_server\some_share\main_folder\" _
            & Chr(65 + i) & "\file.xls")) Then
            ' do some stuff
        End If
    Next i

HTH

M.

 

[KGee]

Hi Marcelo,

I didn't get a chance to respond yesterday but this does the trick. I need to make a slight change but I can take figure out the rest based on the code you provided.

Thanks

 

[Marcelo Branco]

KGee,

My pleasure

M.