Vbscript 删除文件名vbsript中的数字和句点

我已经找到了一个脚本，它将替换下划线（_）和我在脚本中编写的其他文本。我需要修改这个脚本，以便它也将删除文件名中的所有数字。我尝试了[0-9]和/d，但没有删除文件名中的数字。我还试图删除文件名中的句点，但这也删除了文件扩展名。所以它也删除了.csv。有人能帮忙吗

'========================================================
' VBScript to replace underscore in file name with space 
' for each files in a folder
' Written by ApOgEE of http://coderstalk.blogspot.com
'========================================================
Dim sName
Dim fso
Dim fol

' create the filesystem object
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

' get current folder
Set fol = fso.GetFolder(".")

' go thru each files in the folder
For Each fil In fol.Files
    ' check if the file name contains underscore
    If InStr(1, fil.Name, "_") <> 0 Then
        ' replace underscore with space
        sName = Replace(fil.Name, "_", " ")
        ' rename the file
        fil.Name = sName
    End If
Next

' echo the job is completed
WScript.Echo "Completed!"

'========================================================
'VBScript将文件名中的下划线替换为空格
'对于文件夹中的每个文件
“作者：阿普吉http://coderstalk.blogspot.com
'========================================================
暗礁
模糊fso
昏暗的
'创建文件系统对象
设置fso=WScript.CreateObject（“Scripting.FileSystemObject”）
'获取当前文件夹
Set fol=fso.GetFolder（“.”）
'浏览文件夹中的每个文件
对于以下文件中的每个文件
'检查文件名是否包含下划线
如果仪表（1，文件名，“uu”）为0，则
'将下划线替换为空格
sName=Replace（fil.Name，“”，”）
'重命名文件
fil.Name=sName
如果结束
下一个
'回显作业已完成
Echo“已完成！”

该函数只进行简单的字符串替换。它不支持通配符或模式。您正在寻找：

---

我做了：sName=Replace（sName，“.”，“”）尝试替换句点。另外，sName=替换（sName，“[0-9]”，“”）以删除numbers@user3109071不客气。如果你发现它解决了你的问题，请考虑一下。

Set re = New RegExp
re.Pattern = "[0-9_.]"
re.Global  = True

For Each fil In fol.Files
  fil.Name = re.Replace(fil.Name, " ")
Next