找回密码
 加入
搜索
查看: 7287|回复: 14

[AU3基础] [已解决]如何AU3把U盘的文件夹复制到我的电脑D盘

  [复制链接]
发表于 2010-11-28 08:40:42 | 显示全部楼层 |阅读模式
本帖最后由 yinbinly 于 2010-12-2 21:38 编辑

本人刚接触AU3,我想写个脚本,点一下就把我U盘的文件夹复制到我的电脑指定盘符,不知道可不可以实现,比如把我U盘的 资料 到 我的电脑F盘
发表于 2010-11-28 10:36:27 | 显示全部楼层
$a = DriveGetDrive("REMOVABLE(可移动驱动器)")
FileCopy($a&"\资料","f:")
 楼主| 发表于 2010-11-28 11:03:47 | 显示全部楼层
回复 2# tryhi


    - - 无法实现
 楼主| 发表于 2010-11-28 11:06:39 | 显示全部楼层
这个脚本是不是要放到可移动硬盘的根目录啊
 楼主| 发表于 2010-11-28 11:08:49 | 显示全部楼层
回复 3# yinbinly


    可是换个机子盘符就变了啊,我是初学者,大侠,写详细点啊
发表于 2010-11-28 11:21:47 | 显示全部楼层
本帖最后由 styledream 于 2010-11-28 11:34 编辑
$source="\Pic"                ;U盘中根目录下的文件夹
$dest="c:" & $source &""                ;目标文件夹
$var = DriveGetDrive("removable")

If NOT @error Then
    For $i = 1 to $var[0]                ;遍历获取到的多个可移动磁盘
        If FileExists($var[$i] & $source) Then
                FileCopy($var[$i] & $source,$dest,9)
                MsgBox(0,"Year!!!","复制文件夹成功!")
        Else
                MsgBox(0,"Error!!!","找不到文件夹 " & $var[$i] & $source)
        EndIf
    Next

    Exit
EndIf
MsgBox(0,"Error!!!","请确认可移动磁盘已接入!")
简单的实现,应该是楼主想要的效果......
程序放在哪里都可以,自动识别盘符,路径请自行修改.......

评分

参与人数 1金钱 +20 收起 理由
afan + 20

查看全部评分

 楼主| 发表于 2010-11-28 15:21:05 | 显示全部楼层
回复 6# styledream


    谢谢啊 这个不错,就是我想把它刻到光盘里可以吗?在就是我不想让他扫描其他的盘符
发表于 2010-11-29 09:59:12 | 显示全部楼层
回复 7# yinbinly

刻到光盘里?  如果你把U盘拿到别的机器上,盘符可能会变,因此扫描全部可移动盘符(不是扫描硬盘盘符)是比较保守的方法
发表于 2010-11-29 10:25:15 | 显示全部楼层
本想学下VBS写个仿病毒感染机制的 防病毒脚本. 现在 用AU3就可以, 有思路了.
 楼主| 发表于 2010-11-29 11:40:23 | 显示全部楼层
回复 8# styledream


    盘符不可以改成默认盘符吗?我把脚本刻录光盘
发表于 2010-11-29 17:23:51 | 显示全部楼层
回复 10# yinbinly

欢迎刻盘^^
对于U盘接入时显示盘符这个问题,在不同的电脑上显示都会不同,比如你把U盘接到你电脑上时显示的是“I盘”,但不一定接到别人的电脑上显示的就是“I盘”
因为有可能别人的电脑上有两块硬盘或已经接入其它的U盘,它的第二块硬盘就是“I盘”,这时候你接入的U盘就会变是“J盘”或其它的盘符,所以写成默认盘符有可能就会识别不到,程序就找不到你要复制文件夹的路径了
发表于 2011-2-20 09:13:41 | 显示全部楼层
支持六楼一下!
发表于 2016-2-15 22:32:48 | 显示全部楼层
不错 学习了
发表于 2016-6-29 06:01:27 | 显示全部楼层
Local $a = DriveGetDrive("REMOVABLE")
FileCopy($a[1]&"资料","l:\")
如有这方面问题,请加我的微信:694001294
发表于 2016-6-29 06:03:43 | 显示全部楼层
本帖最后由 AU3如水心 于 2016-6-29 06:06 编辑

Local $a = DriveGetDrive("REMOVABLE")
FileCopy($a[1]&"资料","l:\")
如有这方面问题,请加我的微信:694001294
如果这代码有问题你尽管发微信骂我,测试过的好吧!
这里是只有一个U盘的情况偶!!如果有两个U盘,你要复制第二个U盘的东西,把$a[1]改为$a[2]即可。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-6-12 09:35 , Processed in 0.093982 second(s), 27 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表