vb检查磁盘类型

原创 2013年12月05日 17:02:56
Option Explicit
Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long


Private Sub Command1_Click()
    Select Case GetDriveType("C:\")
    Case 0
        MsgBox "未知类型", vbExclamation
    Case 1
        MsgBox "未知类型", vbCritical
    Case 2
        MsgBox "可移动磁盘", vbInformation
    Case 3
        MsgBox "本机磁盘", vbInformation
    Case 4
    
        MsgBox "网络磁盘", vbInformation
    Case 5
        MsgBox "光驱", vbInformation
    Case 6
        MsgBox "内存虚拟磁盘", vbInformation
    End Select
End Sub
 
 
检测有无移动磁盘插入
 
 
Option Explicit
Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Command1_Click()
If Ydcp() = False Then MsgBox "没有检测到移动磁盘" Else MsgBox "检测到移动磁盘"
End Sub
Private Function Ydcp() As Boolean
Dim i As Integer
Ydcp = False
For i = 65 To 90
If GetDriveType(Chr(i) & ":\") = 2 Then
    Ydcp = True
    Exit Function
End If
Next i
End Function
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

VB.NET 开发中遇到的兼容性检查问题

事情是这样的:   我们的一个应用程序需要通过VSTO代码方式操作本地的Excel,包括打开工作簿,生成新的工作簿,设置数据,并且保存为新文件等等。 该程序在Excel 2003的环境下没有任何...

磁盘IO检查工具CrystalDiskMark

  • 2016年06月03日 17:12
  • 927KB
  • 下载

Winhex绿色版磁盘检查和修复工具

  • 2011年06月08日 15:16
  • 9.26MB
  • 下载

检查用户输入信息是否完整(vb.net实现)

机房收费系统中,在将用户输入的信息封装到实体中作为参数传到B层之前,总要对用户输入的信息进行检查。我将这样的检查分为两类: 合法性检查完整性检查     所谓合法性检查,就是用户输入的信息是否格式正...

磁盘剩余空间检查报警

  • 2014年10月16日 21:31
  • 976KB
  • 下载

CHKDSK磁盘检查

  • 2014年10月26日 07:13
  • 16KB
  • 下载

VB调用VC++的DLL问题:原因可能是托管的PInvoke 签名与非托管的目标签名不匹配。请检查PInvoke 签名的调用约定和参数与非托管的目标签名是否匹配。

前几天在.net framework4下实现了VB调用VC++Dll的一些工作,然而,每当VC的被调用函数返回时总是报错,如题。。                原函数声明如下:extern ”C“...

磁盘空间检查

  • 2013年09月16日 17:48
  • 66KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb检查磁盘类型
举报原因:
原因补充:

(最多只允许输入30个字)