显示某个目录的所有文件名并且改名移动

<%
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/"

但是，不能使用：

FileSystemObject.CopyFile "c:/mydocuments/*/R1???97.xls", "c:/tempfolder"

如果 source 包含通配符或 destination 以路径分隔符 (/) 结束，则假定 destination 是现有文件夹，复制匹配文件到该文件夹。否则，假定 destination 为要创建的文件。在任一种情况下，复制单个文件时，会出现以下三种情况。

• 如果 destination 不存在，则复制 source。这是通常会发生的情况。
• 如果 destination 是已经存在的文件，当 overwrite 为 False 时会出现错误。否则，复制 source 覆盖现有文件。
• 如果 destination 是目录，则会出现错误。

如果 source 使用通配符，但并没有相匹配的文件时，则会出现错误。CopyFile 方法在遇到出现的第一个错误时停止。该方法不会撤消错误发生前所作的任何更改。