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

surongfu 发表于 2012-1-17 13:54:30

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

本帖最后由 surongfu 于 2012-6-26 08:41 编辑

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

zch11230 发表于 2012-1-17 15:16:30

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

风行者 发表于 2012-1-17 15:31:29

简单几句就可以实现
$Drive = DriveGetDrive("REMOVABLE")
If IsArray($Drive) Then
        For $i = 1 To $Drive
                ShellExecute($Drive[$i])
        Next
EndIf

love5173 发表于 2012-1-17 15:41:29

3楼正解，学习一下

surongfu 发表于 2012-1-17 16:38:34

谢谢三楼的兄弟{:face (319):}

surongfu 发表于 2012-1-17 16:43:21

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

user3000 发表于 2012-1-17 16:52:18

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


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

楼上风云 发表于 2012-1-17 17:00:34

回复 1# surongfu


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

ndyzx 发表于 2012-1-17 17:53:09

如果2个U盘呢？

fuldho 发表于 2012-1-17 18:24:55

回复 6# surongfu


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

seniors 发表于 2012-1-18 08:48:46

这是我以前找的，忘记在哪看到的了
可以显示的内容较多
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 发表于 2012-1-18 08:56:55

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

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




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

ndyzx 发表于 2012-2-2 13:31:17

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

netegg 发表于 2012-2-2 19:17:27

本帖最后由 netegg 于 2012-2-2 19:18 编辑

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

0linjiawei0 发表于 2012-2-6 13:14:29

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

查看完整版本: 请教大侠！如何自动获取U盘盘符并打开检测到的盘符啊！(已解决)