نمونه کد های کوچک و کاربردی VB.Net

[ravegoat]

این کد درایو های مربوط به حافظه های فلش را شناسایی می کند و نام آن ها را با جعبه متنی بر می گرداند:

كد زير را در خارج از Public Class فرم برنامه قرار می دهيم:

Imports System.IO

سپس از این کد استفاده کنید:

On Error Resume Next
Dim rmdrvs As String
For iDrive As Integer = 0 To DriveInfo.GetDrives.Length - 1
    If DriveInfo.GetDrives(iDrive).DriveType = 2 And DriveInfo.GetDrives(iDrive).Name <> "A:\" And DriveInfo.GetDrives(iDrive).Name <> "B:\" Then
        rmdrvs += ControlChars.NewLine + DriveInfo.GetDrives(iDrive).Name + " - " + DriveInfo.GetDrives(iDrive).VolumeLabel
    End If
Next
MsgBox(rmdrvs)