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            '拷贝文件夹

上一篇: vb编程Winsock控件用法
下一篇: vb打开文本文件
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: vb
相关日志: