Vbscript VBS-两次计算目录中的文件总数

特别编剧-

我有这个剧本。它完成了它应该做的工作，即拉取文件名的前三个字符，并将它们移到文件名的后面。当然，有些部分可以写得更好，但我只是一个初学者，这是一种让它工作的方法

它不起作用的是totalFiles计数。它最终将旧文件计数为1，新文件计数为1。因此，对于一个文件夹中所有重命名的50个文件，它表示100个文件中有50个文件

建议？ 谢谢

使用objFolder.Files.Count获取循环之前的文件数

增加：

---

若要仅获取.MP3文件的数量，请从变量中减去循环中的非.MP3，然后不命名为totalFiles，而是totalmp3

使用Files.Count不起作用，因为我希望它只计算.mp3。文件夹中还有其他文件。我没有研究文件。计数，所以它可能能够根据特定的文件类型计数。无论如何，我所做的工作只是另一个For循环，使用与主循环相同的语法。对于colFiles中的每个objFile，如果UCaseobjFSO.GetExtensionNameobjFile.name=MP3，则totalFiles=totalFiles+1如果下一步

'Program to count no of .vbs files in a specified folder

Dim count,looping,extension
count = 0
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder("C:\APRIL\Assignments\Second")
Set totalFiles = objFolder.Files
For Each looping  In totalFiles

extension = objFso.GetExtensionName(looping)
    if(extension = "vbs") Then
    count = count + 1
    End If
Next
MsgBox count

'Program to count no of .vbs files in a specified folder

Dim count,looping,extension
count = 0
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder("C:\APRIL\Assignments\Second")
Set totalFiles = objFolder.Files
For Each looping  In totalFiles

extension = objFso.GetExtensionName(looping)
    if(extension = "vbs") Then
    count = count + 1
    End If
Next
MsgBox count