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拷贝文件,拷贝文件夹
最新推荐文章于 2024-08-17 09:55:39 发布