Удалить расширение файла из списка возвращенных файлов

Question

У меня есть следующий код, который получает список файлов 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 

Answer 1

Это будет работать:

... 
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 

Согласно документации, Left()

Возвращает указанное количество символов из левой части строки.

Вам просто нужно знать, сколько символов нужно вернуть. Поскольку вы уже знаете, что имя файла заканчивается на .txt, вы можете вернуть все, кроме , последние 4 символов. Len(objFile.name) даст вам полную длину, и вы можете отнять оттуда.