大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

文件夹及其子文件夹CopyVB.NET-创新互联

  1. PrivateSubByValAsStringByValAsString
  2. Try
  3. ' 检查目标目录是否以目录分割字符\结束,如果不是则添加之
  4. IfThen
  5. EndIf
  6. '判断源目录是否存在,不存在则退出.
  7. IfNotThenExitSub
  8. '' 判断目标目录是否存在如果不存在则新建之
  9. 'If (Not Directory.Exists(aimPath)) Then Directory.CreateDirectory(aimPath)
  10. ' 得到源目录的文件列表,该里面是包含文件以及目录路径的一个数组
  11. DimAsString
  12. ' 遍历所有的文件和目录
  13. ForEachAsStringIn
  14. ' 先当作目录处理如果存在这个目录就递归Copy该目录下面的文件
  15. IfThen
  16. IfNotThen
  17. ' 否则直接Copy文件
  18. Else
  19. True
  20. EndIf
  21. Next
  22. CatchAs
  23. "
    "
  24. EndTry
  25. EndSub

宾阳网站制作公司哪家好,找成都创新互联公司!从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作,到程序开发,运营维护。成都创新互联公司从2013年成立到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联公司

另外有需要云服务器可以了解下创新互联scvps.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。


分享标题:文件夹及其子文件夹CopyVB.NET-创新互联
文章起源:http://dzwzjz.com/article/decjcs.html
在线咨询
服务热线
服务热线:028-86922220
TOP