<%
Option Explicit
Dim objFileSys
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Response.Write objFileSys.GetBaseName("c:\docs\myfile.txt") & "<P>"
Response.Write objFileSys.GetBaseName("myfile.txt") & "<P>"
Response.Write objFileSys.GetBaseName("c:\docs\myfile") & "<P>"
%>
