Get FileName without Extension?

Using windows vbscript, how can I get the filename without extension?

Here's my code

set wshell = createobject("WScript.Shell")
CurPath = WShell.Currentdirectory
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder(CurPath)  
Set files = objFolder.Files  
For each fileIdx In files  
	Wscript.Echo fileIdx.Name
Next