列表而不extention的文件夹和子文件夹中的所有文件

Question

我遇到下面的脚本，我真的很喜欢用，但我想这不会有.extention末

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 

我在这个垃圾，但我真的apperciate帮助

Answer 1

使用FileSystemObject的.GetBaseName()方法。如：

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