Function FileNameRelated(strReferenceFileName, strNewFileExtension)
'Returns a file name the same as the reference file name except for the file extension. 
Dim fs, strExtension
	Set fs = CreateObject("Scripting.FileSystemObject")
	If Left(strReferenceFileName, 1) <> "." Then
		strExtension = "." & strNewFileExtension
	Else
		strExtension = strNewFileExtension
	End If
	FileNameRelated = fs.BuildPath(fs.GetParentFolderName(strReferenceFileName), fs.GetBaseName(strReferenceFileName) & strExtension)
End Function