title: how to remove the extension of a found file FSO?
body: <p>The code I wrote can display filenames into a sheet, but I want to remove the extension when displayed. I know that should be a little correction, but I burned out trying options. Can Somebody tell me where exaclty I must add a piece of code that I miss please? My attempt of code below. Many similar issues on the net, but I can not manage to find it.Thanks in advance....</p>
  
  <pre><code>Option Explicit
  Sub fileNames_in_folder()
  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
  Dim fldpath
  Dim fld As Object, fil As Object, fso As Object, j As Long
   fldpath = "C:\"
     On Error Resume Next
  Thisworkbook.Sheets("1").Activate
  'start count row
      j = 11
  Set fso = CreateObject("scripting.filesystemobject")
  Set fld = fso.getfolder(fldpath)
      For Each fil In fld.Files
  'here I have to add something due to expell the ".extension" 
  Cells(j, 34).Value = fso.GetBaseName(fil.path)
  'count behaviour
      j = j + 1
    Next
  Columns("AH").AutoFit
  End Sub
  </code></pre>