fjerne fil extension på filer

Hejsa eksperter
Jeg har et script som lister alle filnavnene i en folder og derefter gemmer det i en textfil. Dog indehodler de fil extensions.

Er der en der ved hvordan gør så disse ikke gemmes i textfilen. Det er kun listen med selve filnavnene jeg er interesseret i:


Option Explicit

Const path = "sti til mappe"

Dim Text, Title, oFile
Dim fso, oFolder, oFiles, wsh          ' Object variables

Text = ""
Title = ""

Set wsh = WScript.CreateObject("WScript.Shell")

' Create FileSystemObject object to access the file system.
Set fso = CreateObject("Scripting.FileSystemObject")

' Get Folder object.
Set oFolder = fso.GetFolder(wsh.ExpandEnvironmentStrings(path)) 

'Text = Text & oFolder & vbCrLf & vbCrLf
Text = Text & "" & vbTab & vbTab & "" & vbCrLf
Set oFiles = oFolder.Files        ' Get Files collection.

For Each oFile In oFiles          ' All files
    Text = Text & oFile.Name & vbTab
    'Text = Text & FormatNumber(oFile.Size, 0) & vbTab
    ' List the short filename (but comment out for VBScript 3.1)
    'Text = Text & oFile.ShortName & vbCrLf
    Text = Text & vbCrLf
Next






'Open up the path to save the information into a text file
Dim Stuff, myFSO, WriteStuff, dateStamp
dateStamp = Date()

'Write information to Text File
Stuff = Text

Set myFSO = CreateObject("Scripting.FileSystemObject")
Set WriteStuff = myFSO.OpenTextFile("textfile.txt", 8, True)
WriteStuff.WriteLine(Stuff)
WriteStuff.Close
SET WriteStuff = NOTHING
SET myFSO = NOTHING