你的位置: iPc 首页 > 全部文章 > Web编程 > 阅读文章
科学X网    Office    苹果中国    微软中国    VPS

ASP下用FSO移动(改名)文件夹或文件

11
四月

‘例1:想把当前目录下的a文件夹,移动到当前目录下的b文件夹下:MoveFolder("a","b/a")
‘例2:想把当前目录下的a文件夹,移动到当前目录下的b文件夹下并改名为c:MoveFolder("a","b/c")
‘例2:想把当前目录下的a文件夹,改名成b:MoveFolder("a","b")

Public Function MoveFolder(Byval sFolder,Byval nFolder)
if sFolder="" or nFolder="" then MoveFolder="参数错误" : Exit Function
On Error Resume Next
Dim objFSO
err=0
Folder=Server.MapPath(sFolder)
Folder1=Server.MapPath(nFolder)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
objFSO.MoveFolder Folder,Folder1
Set objFSO = Nothing
MoveFolder = Err.Description
if err=0 then MoveFolder = "文件夹 " & sFolder & " 已经移动到 " & nFolder
End Function

若将代码中的:objFSO.MoveFolder改为objFSO.MoveFile则为对文件操作。

Technorati : , , , ,

关于本文

微博评论箱