VB拷贝文件，拷贝文件夹

 

VB拷贝文件，拷贝文件夹

1、添加引用microsoft    scripting    runtime  
   方法：选择菜单“工程”-->“引用”-->选择“microsoft    scripting    runtime”  
    
   2、使用方法  
   Option    Explicit  
    
   Private    Sub    Form_Load()  
   Dim    FileSys    As    New    FileSystemObject  
   Dim    FolderObj    As    Folder  
   Set    FileSys    =    CreateObject("scripting.filesystemobject")  
   FileSys.CopyFile    "c:\ss.txt",    "d:\mm.txt",    True    '拷贝文件  
   FileSys.CopyFolder    "c:\1",    "d:\2",    True            '拷贝文件夹