mkdir "文件夹名"这个“文件夹名”必须是全路径，如c:\a\b\新文件If (Right(File1.Path, 1)) = "\" Thenmkdir File1.Path & 新建文件夹Elsemkdir File1.Path & "\" & 新建文件夹End If
