Vbscript 列出文件夹和子文件夹中不带扩展名的所有文件

我遇到了下面的脚本，我真的很想使用它，但我不希望它在结尾有.extension

Dim fso
Dim ObjOutFile

Set fso = CreateObject("Scripting.FileSystemObject")

Set ObjOutFile = fso.CreateTextFile("C:\Users\User\Movies.csv")

ObjOutFile.WriteLine("Type,File Name,Size")

GetFiles("E:\")

ObjOutFile.Close

Function GetFiles(FolderName)
    On Error Resume Next

    Dim ObjFolder
    Dim ObjSubFolders
    Dim ObjSubFolder
    Dim ObjFiles
    Dim ObjFile

    Set ObjFolder = fso.GetFolder(FolderName)
    Set ObjFiles = objfolder.Files

    For Each ObjFile In ObjFiles
    ObjOutFile.WriteLine("File," & ObjFile.Name & "," & objFile.Size & "," & objFile.Type)
    Next

    Set ObjSubFolders = ObjFolder.SubFolders

    For Each ObjFolder In ObjSubFolders

        ObjOutFile.WriteLine("Folder," & ObjFolder.Name)


        GetFiles(ObjFolder.Path)
    Next

End Function

我在这方面做得很差劲，但我真的希望帮助你使用FileSystemObject的方法。例如：

>> WScript.Echo goFS.GetBaseName("c:\dir\name.ext")
>>
name

---

对不起，在上面的脚本中我在哪里使用它