File List skipping First File

[DMROD]

The following code return a list of files & file path in the directory except for the frist file in directory, but it adds to the end of the list one file path without file. Total lines in list equals number of Files in directory. There is a sub directory in the directory which I do not need in the list nor it contents. What I am missing?

Thank you
David


strDir = ThisWorkbook.Path

Let strName = Dir(strDir & "\*.*")
Do While strName <> vbNullString
Let j = j + 1
' Let strArr(i, 1) = strDir & "\" & strName
Let strName = Dir()
'Sheets("List").Cells(j, 1) = strArr
Sheets("List").Cells(j, 1) = strDir & "\" & strName
Loop

 

[Norie]

David

Are you sure the index of the file list starts at 1?

Perhaps you should move j=j+1?

 

[DMROD]

Norie

I inserted code before the loop to set j = 0 prior to starting the loop. And tried moving the j = j+1 line within the loop. With no success. Any other suggestions.

Thank you
David

strDir = ThisWorkbook.Path
    Let j = 0
    Let strName = Dir$(strDir & "\*.*")
    Do While strName <> vbNullString
        Let j = j + 1
 
        Let strName = Dir$()
 
        Sheets("List").Cells(j, 1) = strDir & "\" & strName
        Loop

 

[Norie]

Oops, my bad - I misread your code.

It thought you were using another method to get the fiile list, not just Dir.

I think what you need to do is move the line of code that gets the next filename after the line that puts the current filename on the worksheet.

Your very first Dir should get the first filename.

    strDir = ThisWorkbook.Path
    
    strName = Dir$(strDir & "\*.*") ' get first filename - if there is one    
    
    Do While strName <> vbNullString
 
        j = j + 1
 
        Sheets("List").Cells(j, 1) = strDir & "\" & strName
 
        strName = Dir$() ' get next filename
        
    Loop

 

[DMROD]

Norie

Thank you it works .

David