<%
Sub ShowFileList(folderspec)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc =f.Files
For Each f1 in fc
's = f1.name &"<br>"
s=split(f1.name)
response.write s(0)&".jpg" &"<br>"
fs.CopyFile Server.MapPath("旧文件名"),Server.MapPath("新文件名")
Next
End Sub
ShowFileList("H:/DATA/原E盘/产品库/1,Cabinet/")
%>
描述
将一个或多个文件从某位置复制到另一位置。
语法
object. CopyFile source, destination[, overwrite]CopyFile 方法的语法有以下部分:
部分 描述 object 必选。应为 FileSystemObject 对象的名称。 source 必选。表示指定文件的字符串。要复制一个或多个文件时,文件名中可以有通配符。 destination 必选。表示目标位置的字符串,从 source 复制文件到该位置。不允许用通配符。 overwrite 可选。Boolean 值表明是否覆盖现有文件。如果是 True,则覆盖文件;如果是 False,则不覆盖现有文件。默认值是 True。要注意,无论 overwrite 设置为何值,只要设置 destination 为只读属性,CopyFile 操作就无法完成。
说明
仅能在 source 参数的路径最后一个组成部分中使用通配符。例如,可以使用:但是,不能使用:FileSystemObject.CopyFile "c:/mydocuments/letters/*.doc", "c:/tempfolder/"
如果 source 包含通配符或 destination 以路径分隔符 (/) 结束,则假定 destination 是现有文件夹,复制匹配文件到该文件夹。否则,假定 destination 为要创建的文件。在任一种情况下,复制单个文件时,会出现以下三种情况。FileSystemObject.CopyFile "c:/mydocuments/*/R1???97.xls", "c:/tempfolder"
如果 source 使用通配符,但并没有相匹配的文件时,则会出现错误。 CopyFile 方法在遇到出现的第一个错误时停止。该方法不会撤消错误发生前所作的任何更改。
- 如果 destination 不存在,则复制 source。这是通常会发生的情况。
- 如果 destination 是已经存在的文件,当 overwrite 为 False 时会出现错误。否则,复制 source 覆盖现有文件。
- 如果 destination 是目录,则会出现错误。