郁闷了，VB写了个函数得到U盘盘符，但是最后输出不了盘符，不知道是什么原因，麻烦帮我看看代码

为什么系统可以检测到U盘,也有盘符，但是却打不开~

U盘坏了，格式化一下看行不行。不行，找量产工具量产一下。都不行，换U盘吧。

小恩课堂电脑盘符。

在其它电脑上能用的前提下：刷新一下后看看有没有打开控制面版,管理工具,计算机管理,磁盘管理,你会在里面找到一个和你的U盘一样大小的分区,且显示状态良好,在那点添加,然后添加你所要的就可以了,之后就会看到了。1、用其他移动设备试一试。如果都找不到就可能是你机器的U盘口故障，这样只能更换你机器的U盘接口。2、如果其他的U盘认了，你可以拿你的U盘换USB口试一下，前后的每个口都要试，如果其他USB接口认了应该是和你的U盘口电压输出有关。3、最近是否更新或安装过什么程序，有可能是这些更新或程序与你的U盘有冲突，包括杀毒软件的升级和系统包的升级都有可能，反向操作或在安全模式下看认不认。4、在插上U盘的状态下，重新安装随盘附带的驱动，或从网上找到此款U盘最新的驱动来安装一下试试。5、换另一种操作系统，不同的操作系统对U盘的兼容不一样，XP下不能用的，有可能在2003、ME上可以用。6、U盘的不兼容现象很普遍，如果上面的都不行换一个U盘吧！天天开心！！！

Function GetU() ' 返回U盘的盘符(字母)
  Dim Fso As New FileSystemObject '创建 FSO 对象的一个实例
  Dim FsoDrive As Drive, FsoDrives As Drives '定义驱动器、驱动器集合对象
  Set FsoDrives = Fso.Drives
  GetU = ""
  For Each FsoDrive In FsoDrives '遍历所有可用的驱动器
    If FsoDrive.DriveType = 1 Then '如果驱动器的类型为可移动存储设备
      GetU = FsoDrive.DriveLetter '输出其盘符
      Exit For  '关键是这行，找到移动盘后就要立刻退出循环！
    End If
  Next
  Set Fso = Nothing
  Set FsoDrive = Nothing
  Set FsoDrives = Nothing
 End Function
Private Sub Command1_Click()
Text1.Text = GetU
End Sub

---

神池县18016098391： 郁闷了,VB写了个函数得到U盘盘符,但是最后输出不了盘符,不知道是什么原因,麻烦帮我看看代码 - ？
成王卿三七： Function GetU() ' 返回U盘的盘符(字母) Dim Fso As New FileSystemObject '创建 FSO 对象的一个实例 Dim FsoDrive As Drive, FsoDrives As Drives '定义驱动器、驱动器集合对象 Set FsoDrives = Fso.Drives GetU = ＂＂ For Each FsoDrive ...

神池县18016098391： VB怎样获得磁盘驱动器盘符？
成王卿三七： 你如果只要这个盘符的话,直接添加一个Drivelistbox看看就好了··如果还要具体点的话你加下面一段代码, Private Sub Form_Load() Dim i As Integer, j As Integer Me.Show For i = 0 To Drive1.ListCount - 1 For j = 1 To 4 If Left(Drive1.List(i), 1) = Mid(＂cdef＂, j, 1) Then GoTo hh Next j Print Drive1.List(i) hh: Next i End Sub 当然你也可以把这个移动硬盘的名字放到数组里或者list里面的··呵呵··

神池县18016098391： 如何在vb中查找哪个盘符是U盘? - ？
成王卿三七： Dim S As String, I As Integer, X I = 67 DoX = GetDriveType(Chr(I) + ＂:＂)Debug.Print Chr(I)If X = 2 Then Exit DoI = I + 1 Loop Print ＂U盘盘符是:＂; Chr(I)

神池县18016098391： VB怎样获取U盘的卷标？
成王卿三七： Private Sub Command1_Click() Dim fso As Object, drv As Object Dim dr As Long, fn As String fn = ＂123.txt＂ '指定文件 Set fso = CreateObject(＂scripting.filesystemobject＂) For dr = 99 To 122 If fso.driveexists(Chr(dr) & ＂:＂) Then Set drv ...

神池县18016098391： vb中如何获得优盘盘符 - ？
成王卿三七： 你干脆遍历一下算了.先引用Microsoft Scripting Runtime,然后使用以下代码:Dim fso As New FileSystemObject Dim drv As Drive For Each drv In fso.Drives If drv.DriveType = 1 And drv.IsReady Then '驱动器是U盘且准备就绪...End If Next

神池县18016098391： VB获取U盘盘符 - ？
成王卿三七： Private Declare Function GetLogicalDriveStrings Lib ＂kernel32＂ Alias ＂GetLogicalDriveStringsA＂ (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Private Declare Function GetDriveType Lib ＂kernel32＂ Alias ＂...

神池县18016098391： vb如何监视U盘的插入并得知U盘盘符? - ？
成王卿三七： ....但一般是高手优先采用的..就是设置一个全局钩子..返回系统的所有事件.再从中找出U盘的插入与盘符这个方法最难

神池县18016098391： VB 获取U盘盘符,对其判定和操作 - ？
成王卿三七： Private Sub Command3_Click() Dim fs, dc, d Dim fso As New FileSystemObject Dim p as Boolean Set fs = CreateObject(＂Scripting.FilesystemObject＂) Set dc = fs.Drives p=False For Each d In dc If d.DriveType <> 1 Then P=True End If...

神池县18016098391： vb 获取u盘名称 - ？
成王卿三七： Private Declare Function GetVolumeInformation Lib ＂kernel32＂ Alias ＂GetVolumeInformationA＂ (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, ...

神池县18016098391： 如何用vb打开U盘下的文件?(不知道U盘的盘符) - ？
成王卿三七： Private Declare Function GetDriveType Lib ＂kernel32＂ Alias ＂GetDriveTypeA＂ (ByVal nDrive As String) As Long Private Function USBDISK() Dim i As LongFor i = Asc(＂A＂) To Asc(＂Z＂)If GetDriveType(Chr(i) + ＂:＂) = 2 Then DEBUG.Print ＂现有U盘: ＂ & Chr(i)Next i End Function 调用这个函数时DEBUG窗口就将依次输出所有U盘的盘符