天空教学网

查看: 129|回复: 0

VBS 复制文件和移动文件

[复制链接]

 成长值: 15070

2150

主题

0

精华

1569

积分

管理员

UID
1

Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20

威望
0
贡献
254
资源币
1315
道具币
1270
好友
262
听众
1
收听
0

VIP勋章

发表于 2017-10-8 23:05:51 | 显示全部楼层 |阅读模式
  1. Option Explicit
  2. '功能:把源头 文件夹内的文件复制到,目标位置;且源头文件夹内必须有文件才生效.
  3. Dim FSO

  4. Set FSO =CreateObject("Scripting.FileSystemObject")

  5. 'FSO.CopyFolder "D:\1","C:\2"

  6. FSO.MoveFolder "D:\源文件","C:\目标文件"

  7. ' ↑表示 把 D 盘1 文件下面的 文件和文件夹 复制到 C盘的2文件夹下;注意 2文件夹必须存在
复制代码


您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐 上一条 /1 下一条

QQ|Archiver|手机版|小黑屋|天空教学网

GMT+8, 2017-12-15 08:33 , Processed in 0.352098 second(s), 38 queries .

2017 TNEKY 天空网
快速回复 返回顶部 返回列表