使用VBScript 遍历根目录下所有文件夹的excel并格式化为其他excel格式

 'write by shawn in 2017/09/14 
Dim oFso,now_current_path,CurrentPath_Now,oSubFolders,Filename,Filename2,Count
Set oFso = CreateObject("Scripting.FileSystemObject")    
Set CurrentPath_Now = oFso.GetFolder(".") 
Function FilesTree(sPath)    
    'return this folder's all folders    
    Set oFso = CreateObject("Scripting.FileSystemObject")    
    Set oFolder = oFso.GetFolder(sPath)    'return this folder's object
    Set oSubFolders = oFolder.SubFolders    'return this folder's all son folder        
    Set oFiles = oFolder.Files    
    For Each oFile In oFiles 
	Set oFso2 = CreateObject("Scripting.FileSystemObject")        
		'Wscript.echo CStr(oFso2.GetExtensionName(oFile.Path))
		Filename = CStr(oFso2.GetExtensionName(oFile.Path))
		if (Filename = "XLS")Or(Filename = "