如何删除找到的文件FSO的扩展名？

Question

我写的代码可以将文件名显示在工作表中,但我想在显示时删除扩展名.我知道这应该是一个小小的修正,但我烧掉了尝试选项.有人可以告诉我exaclty在哪里我必须添加一段我想念的代码吗？我尝试下面的代码.网上有很多类似的问题,但我无法找到它.谢谢提前....

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

Answer 1

您可以使用GetBaseName方法获取没有扩展名的文件名:

Cells(j, 34).Value = fso.GetBaseName(fil.path)