检测移动U盘，并运行U盘里面指定程序

pyj521 · 发表于 2016-3-14 16:08:14

求各位大大们赐予我一段代码吧！在此感激万分！我想实现的功能是：运行这段代码后，检测插入电脑的移动U盘，并运行U盘里面指定程序，比如 love.EXE！感谢朋友们！

afan · 发表于 2016-3-14 16:52:52

Local $sExe = 'love.EXE'
Local $aDrive = DriveGetDrive('REMOVABLE')
If @error Then Exit
For $i = 1 To $aDrive[0]
        If $aDrive[$i] <> 'A:' And FileExists($aDrive[$i] & '\' & $sExe) Then _
                ShellExecute($aDrive[$i] & '\' & $sExe)
Next

pyj521 · 发表于 2016-3-14 17:31:49

回复 2# afan

afan大大感谢你!每次都是你帮我！太谢谢你了！

pyj521 · 发表于 2016-3-14 19:25:53

本帖最后由 pyj521 于 2016-3-14 19:26 编辑

@afan 大大晚上好！再劳烦a大下，假如没有检测到任何U盘，加一个提示怎么加呢，提示没有插入U盘，插入U盘后继续运行love.EXE。谢谢！

alwaystick · 发表于 2016-3-14 19:36:07

本帖最后由 alwaystick 于 2016-3-14 19:42 编辑

@afan 大大晚上好！再劳烦a大下，假如没有检测到任何U盘，加一个提示怎么加呢，提示没有插入U盘，插入U盘后 ...
pyj521 发表于 2016-3-14 19:25

Local $sExe = 'love.EXE'
Local $aDrive = DriveGetDrive('REMOVABLE')
If @error Then 
ToolTip("没有插入U盘")
Do
$aDrive = DriveGetDrive('REMOVABLE')
Until Not @error
For $i = 1 To $aDrive[0]
        If $aDrive[$i] <> 'A:' And FileExists($aDrive[$i] & '\' & $sExe) Then _
                ShellExecute($aDrive[$i] & '\' & $sExe)
Next
ElseIf Not @error Then
For $i = 1 To $aDrive[0]
        If $aDrive[$i] <> 'A:' And FileExists($aDrive[$i] & '\' & $sExe) Then _
                ShellExecute($aDrive[$i] & '\' & $sExe)
Next
EndIf

试试看，应该达到你的要求。

pyj521 · 发表于 2016-3-14 19:52:12

回复 5# alwaystick

感谢alwaystick的帮助，假如没有插U盘，提示出现以后，我再把U盘插上去，插上U盘以后再点击提示的确认按钮，点击后程序继续执行运行程序love.exe就完美了！感谢你的帮助！谢谢！

alwaystick · 发表于 2016-3-14 19:56:27

回复 6# pyj521
把ToolTip("没有插入U盘")换成MsgBox(0,"提示","没有插入U盘")，就应该达到你所说的效果：没插U盘，弹出MsgBox，插入U盘后，点确定后程序继续运行。

pyj521 · 发表于 2016-3-14 20:00:03

回复 5# alwaystick

非常感谢alwaystick！已经达到要求，测试完美！感谢二位大大的帮助！谢谢！

zghwelcome · 发表于 2016-3-15 08:45:20

收获不少，谢谢分享

leon460 · 发表于 2016-4-12 13:38:08

回帖也是一种美德，哈哈

ybb03 · 发表于 2016-4-13 00:40:48

标记一下，回头试试

		自动登录	找回密码
密码			加入

[系统综合] 检测移动U盘，并运行U盘里面指定程序

相关帖子