ASP FSO文件操作函数代码（复制文件、重命名文件、删除文件、替换字符串）

i)
IF CopyFSO.FileExists(srcName) and not CopyFSO.FileExists(tarName) then
CopyFSO.CopyFile srcName,tarName
CopyFiles = true
End If

IF CopyFSO.FolderExists(srcName) and not CopyFSO.FolderExists(tarName)then
CopyFSO.CopyFolder srcName,tarName
CopyFiles = true
End If
Next
Set CopyFSO = Nothing

If Err then
''Err.clear()
CopyFiles = false
End If
End Function
%>