try
   Dim fsInfo As New System.IO.DirectoryInfo("c:\testfolder")
 
   For Each fsFile as System.IO.FileInfo In fsInfo.GetFiles
   ...
   next fsFile
 
   For Each fsDirectory as System.IO.DirectoryInfo in fsInfo.GetDirectories
   ...
   nect fsDirectory
catch ex as PathTooLong
   ...
finally
   ...
end try