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

Question

我编写的代码可以将文件名显示到工作表中，但我想在显示时删除扩展名。我知道这应该是一个小小的修正，但我已经厌倦了尝试的选择。有人可以告诉我我必须在哪里添加我错过的代码吗？我在下面的代码尝试。网上有很多类似的问题，但我找不到。提前致谢....

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 Method得到:

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