vb.net枚举硬盘 vb枚举类型

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

VB.net如何枚举字符串？

Enum Week

周日 = 0

周一 = 1

周二 = 2

周三 = 3

周四 = 4

周五 = 5

周六 = 6

End Enum

Sub Main()

Dim myType As Type = GetType(Week)

MsgBox(Week.GetName(myType, Week.周二))

End Sub

相关问答

Q1: VB.NET的枚举求教解决方法

这个功能实现起来其实也很简单vb.net枚举硬盘，就是通过反射去读取 DescriptionAttribute vb.net枚举硬盘的 Description 属性vb.net枚举硬盘的值，代码如下所示vb.net枚举硬盘：

/// summary

/// 返回枚举项的描述信息。

/// /summary

/// param name="value"要获取描述信息的枚举项。/param

/// returns枚举想的描述信息。/returns

public static string GetDescription(Enum value)

{

Type enumType = value.GetType();

// 获取枚举常数名称。

string name = Enum.GetName(enumType, value);

if (name != null)

{

// 获取枚举字段。

FieldInfo fieldInfo = enumType.GetField(name);

if (fieldInfo != null)

{

// 获取描述的属性。

DescriptionAttribute attr = Attribute.GetCustomAttribute(fieldInfo,

typeof(DescriptionAttribute), false) as DescriptionAttribute;

if (attr != null)

{

return attr.Description;

}

return null;

}

这段代码还是很容易看懂的，这里取得枚举常数的名称使用的是 Enum.GetName() 而不是 ToString()，因为前者更快，而且对于不是枚举常数的值会返回 null，不用进行额外的反射。

当然，这段代码仅是一个简单的示例，接下来会进行更详细的分析。

Q2: VB高手进,用VB实现bat文件的net use那样的功能

WNetAddConnection 创建同一个网络资源的永久性连接

WNetAddConnection2 创建同一个网络资源的连接

WNetAddConnection3 创建同一个网络资源的连接

WNetCancelConnection 结束一个网络连接

WNetCancelConnection2 结束一个网络连接

WNetCloseEnum 结束一次枚举操作

WNetConnectionDialog 启动一个标准对话框，以便建立同网络资源的连接

WNetDisconnectDialog 启动一个标准对话框，以便断开同网络资源的连接

WNetEnumResource 枚举网络资源

WNetGetConnection 获取本地或已连接的一个资源的网络名称

WNetGetLastError 获取网络错误的扩展错误信息

WNetGetUniversalName 获取网络中一个文件的远程名称以及/或者UNC（统一命名规范）名称

WNetGetUser 获取一个网络资源用以连接的名字

WNetOpenEnum 启动对网络资源进行枚举的过程

1.WNetAddConnection

VB声明

Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long

说明

创建同一个网络资源的永久性连接

返回值

Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息

参数表

参数类型及说明

lpszNetPath String，要连接的网络名

lpszPassword String，可选的一个密码。如为vbNullString，表示采用当前用户的默认密码。如为一个空字串，则不用任何密码

lpszLocalName String，资源的本地名称。（例如，F: 和 LPT1:）

2.WNetAddConnection2

VB声明

Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long

说明

创建同一个网络资源的连接

返回值

Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息

参数表

参数类型及说明

lpNetResource NETRESOURCE，在这个结构中设置了下述字段，对要连接的网络资源进行了定义：dwType， lpLocalName （可为 vbNullString）， lpRemoteName， lpProvider （设为 vbNullString 表示用默认提供者）。该结构的其他所有变量都会被忽略

lpPassword String，可选的一个密码。如为vbNullString，表示采用当前用户的默认密码。如为一个空字串，则不用任何密码

lpUserName String，用于连接的用户名。如为vbNullString，表示使用当前用户

dwFlags Long，设为零；或指定常数CONNECT_UPDATE_PROFILE，表示创建永久性连接

3.WNetAddConnection3

VB声明

Declare Function WNetAddConnection3 Lib "mpr.dll" Alias "WNetAddConnection3A" (ByVal hwnd As Long, lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long)

说明

创建同一个网络资源的连接。这个函数与WNetAddConnection2类似，只是它允许我们为这个函数显示的对话框指定一个物主窗口

返回值

Long，

参数表

参数类型及说明

hwnd Long，指定一个窗口句柄，用作本函数创建的对话框的父窗口

lpPassword String，可选的一个密码。如为vbNullString，表示采用当前用户的默认密码。如为一个空字串，则不用任何密码

lpUserName String，用于连接的用户名。如为vbNullString，表示使用当前用户

dwFlags Long，设为零；或指定常数CONNECT_UPDATE_PROFILE，表示创建永久性连接

4.WNetCancelConnection

VB声明

Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As Long) As Long

说明

结束一个网络连接

返回值

Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息

参数表

参数类型及说明

lpszName String，已连接资源的远程名称或本地名称

bForce Long，如为TRUE，表示断开连接（即使连接的资源上正有打开的文件或作业）

5.WNetCancelConnection2

VB声明

Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias "WNetCancelConnection2A" (ByVal lpName As String, ByVal dwFlags As Long, ByVal fForce As Long) As Long

说明

结束一个网络连接

返回值

Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息

参数表

参数类型及说明

lpszName String，已连接资源的远程名称或本地名称

dwFlags Long，设为零或CONNECT_UPDATE_PROFILE。如为零，而且建立的是永久性连接，则在windows下次重新启动时仍会重新连接

fForce Long，如为TRUE，表示强制断开连接（即使连接的资源上正有打开的文件或作业）

6.WNetCloseEnum

VB声明

Declare Function WNetCloseEnum Lib "mpr.dll" Alias "WNetCloseEnum" (ByVal hEnum As Long) As Long

说明

结束一次枚举操作

返回值

Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息

参数表

参数类型及说明

hEnum Long，由 WNetOpenEnum函数返回的一个枚举句柄

7.WNetConnectionDialog

VB声明

Declare Function WNetConnectionDialog Lib "mpr.dll" Alias "WNetConnectionDialog" (ByVal hwnd As Long, ByVal dwType As Long) As Long

说明

启动一个标准对话框，以便建立同网络资源的连接

返回值

Long，零表示成功。如用户取消了操作，则返回-1。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息

参数表

参数类型及说明

hwnd Long，指定要成为对话框父窗口的一个窗口的句柄

dwType Long，设成RESOURCETYPE_DISK，浏览磁盘资源

8.WNetDisconnectDialog

VB声明

Declare Function WNetDisconnectDialog Lib "mpr.dll" Alias "WNetDisconnectDialog" (ByVal hwnd As Long, ByVal dwType As Long) As Long

说明

启动一个标准对话框，以便断开同网络资源的连接

返回值

Long，零表示成功。如用户取消了操作，则返回-1。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息

参数表

参数类型及说明

hwnd Long，指定要成为对话框父窗口的一个窗口的句柄

dwType Long，设成RESOURCETYPE_DISK 或 RESOURCETYPE_PRINT，决定要断开的是磁盘还是打印机资源

9.WNetEnumResource

VB声明

Declare Function WNetEnumResource Lib "mpr.dll" Alias "WNetEnumResourceA" (ByVal hEnum As Long, lpcCount As Long, lpBuffer As Any, lpBufferSize As Long) As Long

说明

枚举网络资源

返回值

Long，零表示成功。ERROR_NO_MORE_ITEMS表示不剩下可以枚举的条目。ERROR_MORE_DATA表示条目不能装入lpBuffer。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息

参数表

参数类型及说明

hEnum Long，从WNetOpenEnum函数返回的一个句柄

lpcCount Long，最初设为要枚举的最大资源数量；或设为-1，表示枚举尽可能多的资源。一旦返回，就会设为实际枚举的资源数量

lpBuffer Any，通常是一个字节缓冲区的首字节。该缓冲区装载了枚举信息（可按引用声明为Byte）

lpBufferSize Long，以字节为单位指定lpBuffer数组的长度。如缓冲区不够大，则设为需要的缓冲区长度

注解

枚举网络条目时，最好用vb一次枚举一个资源。尽量不要使用这个函数同时枚举许多网络资源的功能

10.WNetGetConnection

VB声明

Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long

说明

获取本地或已连接的一个资源的网络名称

返回值

Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息

参数表

参数类型及说明

lpszLocalName String，本地设备的名字

lpszRemoteName String，指定一个字串缓冲区，用于装载设备的资源名称

cbRemoteName Long，lpszRemoteName缓冲区的字符数量。如缓冲区不够大，则设为需要的缓冲区长度

11.WNetGetLastError

VB声明

Declare Function WNetGetLastError Lib "mpr.dll" Alias "WNetGetLastErrorA" (lpError As Long, ByVal lpErrorBuf As String, ByVal nErrorBufSize As Long, ByVal lpNameBuf As String, ByVal nNameBufSize As Long) As Long

说明

获取网络错误的扩展错误信息

返回值

Long，零表示成功。ERROR_INVALID_ADDRESS表示缓冲区无效

参数表

参数类型及说明

lpError Long，指定一个变量，用于装载网络错误代码。具体的代码由网络供应商决定

lpErrorBuf String，指定一个字串缓冲区，用于装载网络错误的说明

nErrorBufSize Long，lpErrorBuf缓冲区包含的字符数量

lpNameBuf String，用于装载网络供应商名字的字串缓冲区

nNameBufSize Long，lpNameBuf缓冲区的字符数量

12.WNetGetUniversalName

VB声明

Declare Function WNetGetUniversalName Lib "mpr" Alias "WNetGetUniversalNameA" (ByVal lpLocalPath As String, ByVal dwInfoLevel As Long, lpBuffer As Any, lpBufferSize As Long) As Long

说明

获取网络中一个文件的远程名称以及/或者UNC（统一命名规范）名称。例如，假设一个已连接的远程驱动器是\\othersystem\CDrive，它对应的本地驱动器是F:，而且在它的子目录temp中包含了文件xyz.doc。那么运算结果如下：LocalPath xyz.doc 或 f:\temp\xyz.doc（或者文件的任何相对路径名）

UNC 名称： \\othersystem\CDrive\temp\xyz.doc

连接名称： \\othersystem\CDrive

剩余名称： \temp\xyz.doc

它们分别对应于由这个函数装载的REMOTE_NAME_INFO结构的字段，对该结构的定义如下：

Type REMOTE_NAME_INFO

pUniversalName As Long

pConnectionName As Long

pRemainingPath As Long

End Type

返回值

Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息

参数表

参数类型及说明

lpLocalPath String，磁盘文件的名字

dwInfoLevel Long，下述常数之一：

UNIVERSAL_NAME_INFO_LEVEL 只设置pUniversalName字段

REMOTE_NAME_INFO_LEVEL 设置REMOTE_NAME_INFO结构中的所有三个字段

lpBuffer Any，指定用于装载UNC信息的一个缓冲区。缓冲区起点与一个REMOTE_NAME_INFO结构对应

lpBufferSize Long，以字节为单位指定lpBuffer缓冲区的长度。如缓冲区不够大，则设为需要的缓冲区长度

13.WNetGetUser

VB声明

Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long

说明

获取一个网络资源用以连接的名字

返回值

Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息

参数表

参数类型及说明

lpName String，指定已连接资源的远程名称或本地名称。用vbNullString获取当前用户的名字

lpUserName String，用于装载用户名的一个字串缓冲区

lpnLength Long，lpUserName缓冲区的长度。如缓冲区不够大，则自动设为需要的缓冲区长度

14.WNetOpenEnum

VB声明

Declare Function WNetOpenEnum Lib "mpr.dll" Alias "WNetOpenEnumA" (ByVal dwScope As Long, ByVal dwType As Long, ByVal dwUsage As Long, lpNetResource As NETRESOURCE, lphEnum As Long) As Long

说明

启动对网络资源进行枚举的过程。这个函数会返回由WNetEnumResource函数用于枚举资源所用的一个句柄

返回值

Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息

参数表

参数类型及说明

dwScope Long，指定要枚举的资源范围。可设为下述常数之一：

RESOURCE_CONNECTED 枚举已连接的资源（忽略dwUsage）

RESOURCE_GLOBALNET 枚举所有资源

RESOURCE_REMEMBERED 只枚举永久性连接

dwType Long，下述常数之一

RESOURCE_ANY 枚举所有类型的网络资源

RESOURCE_DISK 枚举磁盘资源

RESOURCE_PRINT 枚举打印资源

dwUsage Long，可设为零，表示枚举所有资源；或设为下述常数的一个或两个：

RESOURCEUSAGE_CONNECTABLE 只枚举那些能够连接的资源

RESOURCEUSAGE_CONTAINER 只枚举包含了其他资源的资源

lpNetResource NETRESOURCE，这个结构指定了一个容器资源。该函数会枚举包含于这里指定的某个指定资源内的资源。如设为NULL（把声明变成ByVal As Long），那么函数会枚举顶级网络资源。倘若在dwScope参数里没有指定RESOURCE_GLOBALNET，那么必须为NULL

lphEnum Long，指定一个变量，用于装载一个枚举句柄。该句柄由WNetEnumResource函数使用。必须用WNetCloseEnum函数将其清除

Q3: VB6中如何获取磁盘信息？

楼上的朋友可能有点小小的误会楼主的意思了，

楼主朋友可能要现在已经分好区的空间大小，已用空间、剩余空间。

当然我也不敢保证谁对谁错，

我还是把我的理解然后也把代码贴出来让楼主看看吧

下面代码的功能：显示光驱当前分区，以及各个盘的总空间，剩余空间。

当然。如果要硬盘总空间，我们可以把所有空间加起来，就达到要求了。

希望下面的代码对楼主有用！

'硬盘空间大小以及光驱

'添加Drive1 Label1 Label2

Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Const DRIVE_CDROM = 5

Public drivenm As String, cddrive As String

Private Sub Form_Load()

'查找CD-ROM的驱动器号

cddrive = ""

For i = 65 To 90

If GetDriveType(Chr$(i) ":\") = DRIVE_CDROM Then

cddrive = UCase(Chr$(i)) ":\"

Exit For

End If

Next i

drivenm = "c:"

Label1.AutoSize = True

Label2.AutoSize = True

Drive1.Left = (Me.Width - Drive1.Width) \ 2

Drive1.Drive = "c"

Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2

gethd

End Sub

Private Sub Form_Activate()

MsgBox "你的光驱在:" cddrive

End Sub

Private Sub Drive1_Change()

drivenm = Mid(Drive1.Drive, 1, 3)

gethd

End Sub

Private Sub gethd() '得知硬盘容量

On Error Resume Next

Dim dfs, cl1, cl2, sec1, byt1, tspace, getdiskvolm, lSize, kk%

Dim hdtype$, hdspace$, hdfspace$

dfs = GetDiskFreeSpace(drivenm, sec1, byt1, cl1, cl2)

If dfs Then

cl2 = Int(cl2 * sec1 / 1024 * byt1)

lSize = Len(Format$(cl2, "#########"))

If lSize 11 Then

kk = 11 - lSize

End If

hdspace = Space(kk) + Format$(cl2, "#########") + " KBytes"

cl1 = Int(cl1 * sec1 / 1024 * byt1)

lSize = Len(Format$(cl1, "#########"))

If lSize 11 Then

kk = 11 - lSize

End If

hdfspace = Space(kk) + Format$(cl1, "#########") + " KBytes"

Else

hdspace = ""

hdfspace = ""

End If

Label1.Caption = "你的" drivenm "盘的总空间是:" Format(Str(Val(hdspace) / 1024 / 1024), "##0.0") + " G"

Label2.Caption = "你的" drivenm "盘剩余空间是:" Format(Str(Val(hdfspace) / 1024), "###,##0.0") + " M"

If UCase(Left(Drive1.Drive, 2)) = UCase(Left(cddrive, 2)) Then

If Val(Label1.Caption) = 0 And Val(Label2.Caption) = 0 Then

MsgBox "这张盘是空的光盘"

Else

If Val(Label1.Caption) 0 And Val(Label2.Caption) 0 Then

MsgBox "这张盘不是空的光盘,但还有空间"

Else

If Val(Label1.Caption) 0 And Val(Label2.Caption) = 0 Then

MsgBox "这张盘是写满并终止的光盘"

End If

End Sub

Q4: vb.net如何获取电脑中的所有盘符

首先使用 System.IO.DriveInfo.GetDrives()获取System.IO.DriveInfo，存入ds()

然后遍历ds，获取各个信息部分。

Dim ds() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives()

For i As Integer = 0 To ds.Length - 1

TextBox1.Text = TextBox1.Text + ds(i).DriveType.ToString + " " '驱动器类型

TextBox1.Text = TextBox1.Text + ds(i).Name + " " '盘符（驱动器名）

TextBox1.Text = TextBox1.Text + ds(i).IsReady.ToString + " " '是否就绪

If ds(i).IsReady = True Then

TextBox1.Text = TextBox1.Text + ds(i).VolumeLabel + " " '卷标

TextBox1.Text = TextBox1.Text + ds(i).TotalSize.ToString + " " '驱动器容量

TextBox1.Text = TextBox1.Text + ds(i).TotalFreeSpace.ToString '驱动器可用容量

End If

TextBox1.Text = TextBox1.Text + vbNewLine

关于vb.net枚举硬盘和vb枚举类型的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。

正文

VB.net如何枚举字符串？

相关问答

相关阅读

js数组删除一个对象，方得人心的意思

mysql两个字段排序选第一个，mysql拼接两个字段的值

c语言跳出一个函数吗，c语言怎么弹出选择窗口

redis将一个key下所有数据更新，redis更新key值

使用js编写一个简单的算法，javascript编写程序

python第一个web爬虫，python网络爬虫第三方库

js右截取字符串，js截取最后一个字符

c语言全局数组自定义函数，c语言定义一个全局变量

目录[+]