文件夹及其子文件夹Copy VB.NET

概述  Private Sub CopyDir(ByVal srcPath As String, ByVal aimPath As String)            Try                ' 检查目标目录是否以目录分割字符\结束,如果不是则添加之                If aimPath.Su

      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  

总结

以上是内存溢出为你收集整理的文件夹及其子文件夹Copy VB.NET全部内容，希望文章能够帮你解决文件夹及其子文件夹Copy VB.NET所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。