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