复制目录 vb源码 不引用组件,兼容性强。