Example Code:
<%
Sub RenameFolder()
Dim fso ' As Scripting.FileSystemObject
Dim fd ' As Scripting.Folder
Dim s
Dim sFolderName
Dim sNewName
Dim sTemp
sFolderName = "d:\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
MsgBox "The new folder is existed already. Can not duplicate."
Else
fd.Name = sNewName
End If
Else
MsgBox "No such folder : "&sFolderName
End If
End Sub
%>
------------attention-----------------
never duplicate folders
--------------------------------------
Example 2:
<%
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
%>
要先确认档案数据夹是否已经存在:
旧数据夹必须是存在的
新数据夹的名称必须未存在的
才不会因为重复命名而产生错误讯息
| 
