Vbscript 在拖动到.vbs时删除文件夹和子文件夹中的每个.txt文件

我试图制作一个简单的VBS脚本，删除拖放文件夹和子文件夹中的每个.txt文件，但是，它似乎不起作用，即使它没有抛出任何错误

我是VBS新手，所以这可能是显而易见的

Option Explicit

Dim objFSO, strFolder, objFile, objFolder, Folder
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Get the folder dropped onto our script...
strFolder = WScript.Arguments(0)

' Recursively check each file with the folder and its subfolders...
DoFolder strFolder

Sub DoFolder(strFolder)
    ' Check each file...
    For Each objFile In objFSO.GetFolder(strFolder).Files
        If Right(objFile.name, 4) = ".txt" Then
            objFSO.DeleteFile(strFolder & "\" & objFile.name)
        End If
    Next

    ' Recursively check each subfolder...
    For Each objFolder In objFSO.GetFolder(strFolder).SubFolders
        DoFolder objFolder.Path
    Next
End Sub

---

你的代码对我来说很好！嗯，是的，的确。。。嗯，但是如果我把“.txt”改成“.v”，它应该是这样的，它不会删除“.v”文件，这怎么可能呢？因为你可能在检查最后四个字符和两个字符“.v”。此外，您可能需要考虑区分大小写。就是这样！非常感谢你！