Pull information on multiple path

[Abhijeet]

Hi

I have macro i want to pull different paths in the same macro so please tell me how to alter this macro

I want to pull particular path file names information so current macro provide info of one particular path i want if multiple then how to do

Please tell me

 

[Abhijeet]

Can you please tell me how to do this

 

[Abhijeet]

I tried for single path please tell me multiple path how to do this

Sub Test()
    Dim strPath As String
    Dim sdir As String
    Dim i As Integer
    strPath = ThisWorkbook.Sheets("Sheet1").Range("B1").Value & "\"
    sdir = Dir$(strPath, vbNormal)
    i = 2
    Do Until Len(sdir) = 0
   
        Sheet2.Range("A" & i).Value = sdir
        i = i + 1
        sdir = Dir$
    Loop
    MsgBox "Done"
 
End Sub

 

[Marc L]

Hi !

Just replay code por each path …​

 

[Abhijeet]

Marc L please tell me how to do for multiple path

 

[Marc L]

One path by one path !

So just copy code for each path or use a For Each loop on a path array …
​

 

[Abhijeet]

I tried this but problem is 1st path file names mention in sheet 2 then go to next path then that will be overwrite file names so please tell me for this part what need to change

i = 2
DoUntil Len(sdir) = 0

Sheet2.Range("A" & i).Value = sdir
i = i + 1
sdir = Dir$
Loop

 

[Marc L]

For next path remove codeline i = 2 as Logic requires !
​

 

[Abhijeet]

Hi

actually i am confused but please tell me here need to check bank cell or what

if this wrong then please tell me

 

[Marc L]

In a clear way, that means ?​