Good day OzGrid Nation!
I am currently working on a project that would perform backup up databases from an Excel worksheet. I am challenged at this point of searching the different directories for the files (File 1, File2, File 3) that need to be backed up and renamed into the Destination directory. I have managed to create the array that will look at the main drives to be search but creating a secondary array for the files to seek has proven difficult. Here is the code I used thus far:
Sub OpenFolder() Dim FileName As String Dim fPath As String Dim fDtName As String Dim i As Long Dim j As Long Dim dbTarget As String dbRosterFolder = ActiveWorkbook.Sheets("Production Dbs").Range("D1").CurrentRegion.Columns(5).Value fDtName = Format(Now, "yyyy-mm-dd ") ' Loop through Db Roster locations For i = 2 To UBound(dbRosterFolder) ' placeholder Dim dbDirectoryContents() As String ReDim dbDirectoryContents(1000) dbTarget = Dir$(Cells(i, 4).Value) Do While dbTarget <> "" dbDirectoryContents(Counter) = dbTarget dbTarget = Dir$ Counter = Counter + 1 Loop Next i End Sub