PrivateSubByValAsStringByValAsString
Try
' 檢查目標(biāo)目錄是否以目錄分割字符\結(jié)束,如果不是則添加之
IfThen
EndIf
'判斷源目錄是否存在,不存在則退出.
IfNotThenExitSub
'' 判斷目標(biāo)目錄是否存在如果不存在則新建之
'If (Not Directory.Exists(aimPath)) Then Directory.CreateDirectory(aimPath)
' 得到源目錄的文件列表，該里面是包含文件以及目錄路徑的一個(gè)數(shù)組
DimAsString
' 遍歷所有的文件和目錄
ForEachAsStringIn
' 先當(dāng)作目錄處理如果存在這個(gè)目錄就遞歸Copy該目錄下面的文件
IfThen
IfNotThen
' 否則直接Copy文件
Else
True
EndIf
Next
CatchAs
"
"
EndTry
EndSub

賓陽網(wǎng)站制作公司哪家好，找成都創(chuàng)新互聯(lián)公司！從網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)公司等網(wǎng)站項(xiàng)目制作，到程序開發(fā)，運(yùn)營維護(hù)。成都創(chuàng)新互聯(lián)公司從2013年成立到現(xiàn)在10年的時(shí)間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選成都創(chuàng)新互聯(lián)公司。

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)scvps.cn，海內(nèi)外云服務(wù)器15元起步，三天無理由+7*72小時(shí)售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價(jià)比高”等特點(diǎn)與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場景需求。

新聞名稱：文件夾及其子文件夾CopyVB.NET-創(chuàng)新互聯(lián)
網(wǎng)頁網(wǎng)址：http://weahome.cn/article/decjcs.html