路徑:原始文件夾的路徑；AfterPath:目標文件夾路徑。
Dim Spath As String
set fs = CreateObject（“Scripting。文件系統對象“）
Spath = Dir（路徑，vbDirectory）
邊做邊看（Spath）
如果Spath & lt& gt"."和Spath & lt& gt".."然後
fs。復制文件夾路徑，afterPath
Spath = Dir（）
如果…就會結束
環
末端接頭
————————————————
版權聲明:本文為CSDN博主“前端新秀007”的原創文章，遵循CC 4.0 BY-SA版權協議。轉載請附上原始來源鏈接和本聲明。
原文鏈接:/weixin _ 41844140/article/details/103188537。