renaming folders.

I have an form where there are 4 text boxes that passes to the next page

on this next page folders are created from these 4 text boxes

this inital page also allows users to change names if the like, so i need to rename the folders they have changed.

how do i rename these folders that have changed.

first i can have a loop which checks the text they have written against the stored version in the db.. if there is a difference i can rename the folder keeping its contents...

any ideas on how to do this, i have been searching bit cant find anything...

thanks

 

Tips: never duplicate folders

try the code
may it help
hope the code can give you an idea

<%
If not rs.EOF then
OldFolder=rs("Name")
sFolderName = "C:\"&OldFolder
sNewName = Newfolder

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FolderExists(sFolderName) Then
Set fd = fso.GetFolder(sFolderName)
sTemp = fd.Drive & "\" & sNewName
If fso.FolderExists(sTemp) Then
'do nothing
Else
fd.Name = sNewName
End If
Else
'do nothing
End If
End if
rs.close
%>

If you find out a better way to do it please also post here.