请教大侠！如何自动获取U盘盘符并打开检测到的盘符啊！(已解决)

surongfu

请教大侠！如何自动获取U盘盘符并打开已经检测到的盘符

zch11230

dos下面的  fsutil fsinfo drives 配合  fsutil fsinfo drevetype X: 可以得到盘符的类别  以前学批处理的时候学的   AU3应该有其它更稳定的方法得到结果...留名期待答案

风行者

简单几句就可以实现

$Drive = DriveGetDrive("REMOVABLE")
If IsArray($Drive) Then 
        For $i = 1 To $Drive[0]
                ShellExecute($Drive[$i])
        Next
EndIf

love5173

3楼正解，学习一下

surongfu

谢谢三楼的兄弟

surongfu

三楼的兄弟，如果没发现“可移动设备”可以让au3提示一下吗？比如说提示“未发现可移动设备"

user3000

三楼的兄弟，如果没发现“可移动设备”可以让au3提示一下吗？比如说提示“未发现可移动设备"
surongfu 发表于 2012-1-17 16:43

    天啊,,,,,,不就是在If里加个Else的判断?
大哥, 你注册时间比我还早得多, 在学什么呀!

楼上风云

回复 1# surongfu


    3楼正解。顺便建议你多看看工具包里自带的示例“高级”程序GUI，里面有不少实用脚本函数

ndyzx

如果2个U盘呢？

fuldho

回复 6# surongfu


    Dim $Var
$Drive=DriveGetDrive("removable")
If $Drive = 0 Then
MsgBox(0, "提示", "没有插入U盘")
Exit
EndIf
For $i = 1 To $Drive[0]
$Var=StringUpper($Drive[$i])
$s = StringUpper($Drive[1])
Next
MsgBox(0, "提示", "你的U盘是："&$s)

seniors

这是我以前找的，忘记在哪看到的了
可以显示的内容较多

GetPartionMsg("usb", 0)        ;GetPartionMsg 的第一个参数可以是 USB、IDE 等;如果不带任何参数，则是检测所有磁盘分区
                                                ;第二个参数可以是 1、0，1 表示 TRUE，0 表示 FALSE;如果第一个参数为空，则第二个必需为 1
 
Func GetPartionMsg($Interface, $b)
        $objWMIService = ObjGet("winmgmts:\\.\root\cimv2")
        $colItems = $objWMIService.ExecQuery ("Select * from Win32_LogicalDiskToPartition")
                
        $DiskInfo = ""
        $DiskInfoCombo = ""
        For $objItem In $colItems
                                MsgBox(64,"",$objItem.Dependent)
                $DiskFH = StringLeft(StringRight($objItem.Dependent, 3), 2)
                                $PartNum = QueryDiskNum($DiskFH)
                $PartMsg = QueryPartitionVolume($DiskFH)
                If $Interface <> "" Then
                        If $b = 1 Then
                                If StringMid($PartNum, 2, 3) = $Interface Then
                                        $DiskInfo = $DiskInfo & $PartNum & $DiskFH & $PartMsg & @CRLF
                                EndIf
                        ElseIf $b = 0 Then
                                If StringMid($PartNum, 2, 3) <> $Interface Then
                                        $DiskInfo = $DiskInfo & $PartNum & $DiskFH & $PartMsg & @CRLF
                                EndIf
                        EndIf
                Else
                        $DiskInfo = $DiskInfo & $PartNum & $DiskFH & $PartMsg & @CRLF
                EndIf
        Next
        MsgBox(64, "磁盘信息", $DiskInfo)
EndFunc   ;==>GetPartionMsg
 
Func QueryDiskInterface($n)
        $objWMIService = ObjGet("winmgmts:\\.\root\cimv2")
        $colItems = $objWMIService.ExecQuery ("Select * from Win32_DiskDrive Where Index=" & $n)
        For $objItem In $colItems
                Return $objItem.InterfaceType
        Next
EndFunc   ;==>QueryDiskInterface
 
Func QueryPartitionVolume($v)
        $objWMIService = ObjGet("winmgmts:\\.\root\cimv2")
        $colItems = $objWMIService.ExecQuery ("Select * from Win32_LogicalDisk Where DeviceID='" & $v & "'")
        For $objItem In $colItems
                Return $objItem.VolumeName & "" & $objItem.FileSystem & "_" & CalcKMG($objItem.Size) & "_" & $objItem.Description
        Next
EndFunc   ;==>QueryPartitionVolume
 
Func QueryDiskNum($d)
        $objWMIService = ObjGet("winmgmts:\\.\root\cimv2")
        $colItems = $objWMIService.ExecQuery ("Associators of {win32_LogicalDisk.DeviceID='" & $d & "'} where ResultClass = Win32_DiskPartition")
        For $colItem In $colItems
                Return "(" & QueryDiskInterface($colItem.DiskIndex) & ":hd" & $colItem.DiskIndex & ")" 
        Next
EndFunc   ;==>QueryDiskNum
 
Func CalcKMG($n)
        If $n < 1024 Then
                Return $n & "Byte" 
        ElseIf $n < 1048576 Then
                Return Round($n / 1024, 2) & "KB" 
        ElseIf $n < 1073741824 Then
                Return Round($n / 1048576, 2) & "MB" 
        Else
                Return Round($n / 1073741824, 2) & "GB" 
        EndIf
EndFunc   ;==>CalcKMG

surongfu

谢谢10楼和3楼的兄弟，3楼的兄弟没发U盘不提示，10楼的兄弟会提示但不会打开，我自己把他们代码整合了一下:

Dim $Var
$Drive=DriveGetDrive("removable")
If $Drive = 0 Then
MsgBox(0, "提示", "没有插入U盘")
Exit
EndIf
For $i = 1 To $Drive[0]
                ShellExecute($Drive[$i])
        Next




这样我测试了一下，没发现U盘会提示，有U盘直接打开，不知道这样整合对吗？

ndyzx

回复 3# 风行者
学习了，谢谢，如果有两个U盘会出现什么情况。

netegg

回复 13# ndyzx
你不会自己动手翻翻帮助呀，至于这么个问题也问这么多吗？
如果帮助没有，你问也就问了，关键是都写着呢

0linjiawei0

一直都很关注U盘的东东。。。。