复制某目录下所有文件至指定目录

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

复制某目录下所有文件至指定目录
Set fso=CreateObject("Scripting.FileSystemObject")
Set Cur_Folder = fso.getfolder(Server.MapPath(SourcePath)) ''源文件夹 
Distination_Path="c: est"
Set sub_files = Cur_Folder.files
for each each_file in sub_files
    sub_file_path=each_file.name
    fso.CopyFile Server.MapPath(SourcePath)&"/"&sub_file_path,Distination_Path&"/"&sub_file_path,True
Next