PrivateSubCopyDir(ByValsrcPathAsString,ByValaimPathAsString)
  
  

  
  
Try
  
  

  
  
'检查目标目录是否以目录分割字符\结束,如果不是则添加之
  
  

  
  
IfaimPath.Substring(aimPath.Length-1)<>Path.DirectorySeparatorCharThen
  
  

  
  
aimPath+=Path.DirectorySeparatorChar
  
  

  
  
EndIf
  
  

  
  

  
  
'判断源目录是否存在,不存在则退出.
  
  

  
  
If(NotDirectory.Exists(srcPath))ThenExitSub
  
  

  
  

  
  
''判断目标目录是否存在如果不存在则新建之
  
  

  
  
'If(NotDirectory.Exists(aimPath))ThenDirectory.CreateDirectory(aimPath)
  
  

  
  

  
  
'得到源目录的文件列表，该里面是包含文件以及目录路径的一个数组
  
  

  
  
DimfileList()AsString=Directory.GetFileSystemEntries(srcPath)
  
  

  
  
'遍历所有的文件和目录
  
  

  
  

  
  
ForEachFileNameAsStringInfileList
  
  

  
  
'先当作目录处理如果存在这个目录就递归Copy该目录下面的文件
  
  

  
  
IfDirectory.Exists(FileName)Then
  
  

  
  
If(NotDirectory.Exists(aimPath+Path.GetFileName(FileName)))ThenDirectory.CreateDirectory(aimPath+Path.GetFileName(FileName))
  
  

  
  
CopyDir(FileName,aimPath+Path.GetFileName(FileName))
  
  

  
  
'否则直接Copy文件
  
  

  
  
Else
  
  

  
  
File.Copy(FileName,aimPath+Path.GetFileName(FileName),True)
  
  

  
  
EndIf
  
  

  
  
Next
  
  

  
  

  
  
CatchexAsException
  
  

  
  
Response.Write("<br>"+ex.ToString())
  
  

  
  
EndTry
  
  

  
  
EndSub