DirRename

<%
Sub Main()
Name "C:\riv.txt" As "C:\Drive.txt"
End Sub
%>