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

PrivateSubByValAsStringByValAsString
Try
' 检查目标目录是否以目录分割字符\结束,如果不是则添加之
IfThen
EndIf
'判断源目录是否存在,不存在则退出.
IfNotThenExitSub
'' 判断目标目录是否存在如果不存在则新建之
'If (Not Directory.Exists(aimPath)) Then Directory.CreateDirectory(aimPath)
' 得到源目录的文件列表，该里面是包含文件以及目录路径的一个数组
DimAsString
' 遍历所有的文件和目录
ForEachAsStringIn
' 先当作目录处理如果存在这个目录就递归Copy该目录下面的文件
IfThen
IfNotThen
' 否则直接Copy文件
Else
True
EndIf
Next
CatchAs
"
"
EndTry
EndSub

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