回 帖 发 新 帖 刷新版面

主题:[讨论]GetDriveType()的问题,哭呀。

我在用这个api的时候,为什么总是返回目录不存在呀????我到底哪里错了呀?我用unicode会出问题,所以转成ansi。
number = 1
driver = GetLogicalDrives()
    
    For i = 65 To 90
        If number And driver Then
            c = Chr(i)
            c = c & ":" & "\" & Chr(0)
            Print c,
            c = StrConv(c, vbFromUnicode)
            
            drivertype = GetDriveType(c)
            
            If drivertype = DRIVE_REMOVABLE Then
                Print "已经移除的磁盘"
            ElseIf drivertype = DRIVe_FIXED Then
                Print "出现故障的磁盘”"
            ElseIf drivertype = DRIVE_CDROM Then
                Print "是CDROM"
            ElseIf drivertype = DRIVE_RAMDISK Then
                Print "是可读写磁盘"
            ElseIf drivertype = 0 Then
                Print "不可以识别的驱动器"
            ElseIf drivertype = 1 Then
                Print "目录不存在"
            
            Else
                Print "发生以外错误"
            End If
            
            
            
            
        End If
        number = number * 2
        
    
    Next i

回复列表 (共3个回复)

沙发

GetLogicalDrives 函数就不必了

板凳

c = StrConv(c, vbFromUnicode)不要这行试试

3 楼


[url=http://file.pfan.cn/upfile/200804221951510.zip]得到U盘 例子vb[/url]

我来回复

您尚未登录,请登录后再回复。点此登录或注册