set objfile = server.createobject("scripting.filesystemobject") '定义一个服务器组件（写入目标文件）
   set outt    = objfile.createtextfile(file_to,TRUE,FALSE)
   outt.write(content) '写入数据
   outt.close
  else '否则直接复制文件
   Set fso = CreateObject("Scripting.FileSystemObject")
   fso.CopyFile file_from, file_to
  End If
 Next
End Sub

midfile Server.mappath("temp/aaa"), Server.mappath("temp/bbb") '调用示例 源目录temp/aaa 处理后存到temp/bbb
        '源目录                     目的目录（必须是已经存在的目录）
%>
manyou(他山之石) 敬上

上一页  [1] [2] [3]