jag behöver hjälp med att i denna kod få in en koll om "oSubFolder.Name" redan innehåller namnet i html filen som dessa flyttas till (i celler och kullumner)
tänkte mig nån if sats men jag kommer inte på hur man kan tänka sig att skriva den i denna kod.

Set oFolder = oFileSystemObj.GetFolder(strPath)
  
     For Each oSubFolder In oFolder.SubFolders


                For Each oFile In oSubFolder.Files
    strnew = strnew & "<tr>" & _
    "<td>" & _
    oSubFolder.Name & _
    "</td>" & _
    "<td>" & _
    oFile.Name & _
    "</td>" & _
    "</tr>"

               
                Next
           
     Next
  
      GoToLocationInFile strnew

End Function

Ex:

<code>
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
DirExists = fs.folderexists(OrigFile)
</code>

Ja vill att om "oSubFolder.Name" innehåller samma namn i en cell, så ska den göra en ny cell rad till nästa fil namn och inte skriva ut folder namnet i den första cellen i den nya raden.