<%
Dimfso, f, folder
SetFSO = server.CreateObject ("Scripting.FilesystemObject")
'Ubah nama direktori
SetFolder = fso.getFolder (server.mappath ("old"))
folder.name = "baru" 'nama baru
'Ubah nama file
Setf = fso.getFile (server.mappath ("old.asp"))
f.name = "new.asp" 'nama baru
'melepaskan
%>