<div>
Check this post for sample code :&nbsp;<a href="http://www.freevbcode.com/ShowCode.asp?ID=8299" rel="ugc">http://www.freevbcode.com/ShowCode.asp?ID=8299</a>
</div>

<div>
hi John, &nbsp;thanks &nbsp;for the firebird tabel test i have to wait to the weekend , then 2 days to be safe
</div>

<div>
Take your time Jack....test it thoroughly to be 100% certain.
</div>

<div>
Here's a simple example that shows the basics of the recursive drill down into subfolders, listing files and folders along the way. &nbsp;You will need a reference to the &quot;Microsoft Scripting Runtime&quot;. 
 

<pre><code class="code-10 nolinks" id="code-20-43058229-1"> Dim fso As Scripting.FileSystemObject

 Sub Main()
 EE29177468()
 End Sub

 Private Sub EE29177468()
 Dim fld As Scripting.Folder

 fso = New Scripting.FileSystemObject
 fld = fso.GetFolder(&quot;C:\Temp\&quot;)

 ListFiles(fld)
 End Sub

 Private Sub ListFiles(fld As Scripting.Folder)
 Dim fold As Scripting.Folder
 Dim fil As Scripting.File

 Console.WriteLine(fld.Path)

 For Each fil In fld.Files
 Console.WriteLine(&quot; &quot; &amp; fil.Path)
 Next

 For Each fold In fld.SubFolders
 ListFiles(fold)
 Next
 End Sub
</code></pre>
<hr />
»bp
</div>

<div>
hello Bill 
I modified like this , if just debug.print works i'am happy , at that point i do my work on the namens off file 
 
got only this error on &nbsp;&quot; invalid use of property &quot;&quot;&nbsp; &nbsp;at: line &nbsp; &nbsp;fld = fso.GetFolder(&quot;I:\&quot;) &lt;&lt;&lt;&lt;&lt; 
 
Please advise, thanks 
 
 
Private Sub cmdtest2_Click() 
'========================= 
&nbsp; &nbsp; &nbsp; &nbsp; Dim fld &nbsp;As Scripting.Folder 
&nbsp; &nbsp; &nbsp; &nbsp; fso = New Scripting.FileSystemObject 
&nbsp; &nbsp; &nbsp; &nbsp; fld = fso.GetFolder(&quot;I:\&quot;) 
&nbsp; &nbsp; &nbsp; &nbsp; ListFiles (fld) 
&nbsp; &nbsp; End Sub 
 
&nbsp; &nbsp; Private Sub ListFiles(fld As Scripting.Folder) 
&nbsp; &nbsp; '============================ 
&nbsp; &nbsp; &nbsp; &nbsp; Dim fold As Scripting.Folder 
&nbsp; &nbsp; &nbsp; &nbsp; Dim fil As Scripting.file 
 
&nbsp; &nbsp; &nbsp; &nbsp; Debug.Print fld.Path 
 
&nbsp; &nbsp; &nbsp; &nbsp; For Each fil In fld.Files 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Debug.Print fil.Path 
&nbsp; &nbsp; &nbsp; &nbsp; Next 
 
&nbsp; &nbsp; &nbsp; &nbsp; For Each fold In fld.SubFolders 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Debug.Print ListFiles(fold) 
&nbsp; &nbsp; &nbsp; &nbsp; Next 
&nbsp; &nbsp; End Sub
</div>

Clipboard01.jpg

Jack.zip

jack niekerk

<div>
Are you working in Visual Studio and VB there, or are you doing a VBA project in Office, or something else? 
 

<hr />
»bp
</div>

<div>
hi John that solved the problem Thanks !
</div>

<div>
<div class="content wysiwyg-content">
Need a way to debug.print in a loop in VB6 &nbsp; names of files in in directory AND the all names in de sub-directory below that path and if more sub-sub directories below that path also 
<a href="https://filedb.experts-exchange.com/incoming/2020/04_w14/1448583/map.jpg" target="_blank" title="sample map (31 KB)"><img alt="sample map" class="file-block lazyload" style="max-width: 685px;" data-src="https://filedb.experts-exchange.com/incoming/2020/04_w14/1448583/map.jpg" /></a>
</div>
</div>

map.jpg

Need a way to debug.print in a loop in VB6   names of files in in directory AND the all names in de sub-directory below that path and if more sub-sub directories below that path also


Finding names of files in a directory with sub-directories in VB6

Programming includes both the specifics of the language you’re using, like Visual Basic, .NET, Java and others, but also the best practices in user experience and interfaces and the management of projects, version control and development. Other programming topics are related to web and cloud development and system and hardware programming.