vbs 文件搜索目录中的扩展名

Question

I'm trying to write this code in VBs, (I'm quite new) I want to have the code go through a folder/directory, and pick out all ".txt" files, in something like a for loop. These text files could then be listed using MsgBox ("txt filename"). This is what I've got so far:

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Users\Desktop\folder"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
    If UCase(objFSO.GetExtensionName(objFile.name)) = ".txt" Then
    Wscript.Echo objFile.Name

Next

It doesn't seem to be picking out a txt file called "name.txt". Any help would be greatly appreciated.

ps: please ignore and bad spelling and my terrible formatting (im new to stackoverflow) Thanks! (also the code above is mostly mashed together code i found off the internet)

Answer 1

You should modify this line ; if you use UCase :

If UCase(objFSO.GetExtensionName(objFile.name)) = ".txt"

To

If UCase(objFSO.GetExtensionName(objFile)) = "TXT"

Or if you use LCase

If LCase(objFSO.GetExtensionName(objFile)) = "txt"

And your code looks like this one :

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Users\Desktop\folder"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
    If LCase(objFSO.GetExtensionName(objFile)) = "txt" Then
        Wscript.Echo objFile.Name
    End If
Next

GetExtensionName Method