File 从返回的文件列表中删除文件扩展名

我有下面的代码，可以从文件夹中获取txt文件列表，我想从返回的文件名中删除.txt，我该如何实现

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Notes"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
   For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then
       document.write objFile.name & "<br>"
   End If
Next

Set objFSO=CreateObject（“Scripting.FileSystemObject”）
objStartFolder=“注释”
设置objFolder=objFSO.GetFolder（objStartFolder）
设置colFiles=objFolder.Files
对于colFiles中的每个objFile
如果UCase（objFSO.GetExtensionName（objFile.name））=“TXT”，则
document.write objFile.name&“
”
如果结束
下一个

这将起作用：

...
For Each objFile in colFiles
   If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then
       document.write Left(objFile.name, Len(objFile.name)-4) & "<br>"
   End If
Next

。。。
对于colFiles中的每个objFile
如果UCase（objFSO.GetExtensionName（objFile.name））=“TXT”，则
document.write Left（objFile.name，Len（objFile.name）-4）和“
”
如果结束
下一个

根据文件,

从字符串的左侧返回指定数量的字符

---

您只需要知道要返回多少个字符。由于您已经知道文件名以

.txt

结尾，因此可以返回除最后4个字符以外的所有字符

Len（objFile.name）

将给出完整的长度，您可以从中减去。

或者如果您喜欢使用处理字符串的函数，我为自己的站点编写了一次代码。此函数返回文件名，不带扩展名，当然前提是文件名中的任何位置都有“.”。如果不是，它只返回输入文件名

Function RemoveFileExtension(inputFileName)
    IF NOT inStr(inputFileName, ".") > 0 THEN
        ' Period not found
        strReturnvalue = inputFileName
    ELSE
        ' Period found. Locate last 
        intPositionRight = 1
        DO WHILE NOT inStr(right(inputFileName, intPositionRight), ".") > 0
            intPositionRight = intPositionRight + 1
        LOOP
        strReturnvalue = left(inputFileName, len(inputFileName) - intPositionRight)
    END IF

    RemoveFileExtension = strReturnvalue
End Function

然后您可以简单地使用该功能，例如：

For Each objFile in colFiles
    response.write RemoveFileExtension(objFile.name) & "<br>"
Next

colFiles中每个objFile的

response.write RemoveFileExtension（objFile.name）和“
”
下一个

---

快乐编码：）

Left（objFile.name，Len（objFile.name）-3）

有用吗？对不起，你能再清楚一点我把代码放在哪里吗？谢谢你的帮助。如果你好奇的话，我正在做一个模板引擎，第一步是抓取一个文件列表并将它们放出来，这样我就可以创建一个可选择的表，现在我要抓取内容并执行操作。包含[field1]的文本文件将替换为用户在应用程序中输入的文本字段等。