본문
' USB를 찾는다.
Dim f_usb As Integer = 0
For Each drv As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives
If drv.DriveType = IO.DriveType.Removable And drv.IsReady Then
Dim driveName As String = drv.Name
Dim driveVolumeLabel As String = drv.VolumeLabel
Dim driveListEntry As New ListViewItem(driveName, 0)
driveListEntry.SubItems.Add(driveVolumeLabel)
f_usb += 1
'usb찾기완료
TextBox1.Text = driveName '찾아낸 USB드라이브 텍스트 박스에 표시.
End If
Next
' ## usb가 만약 2개 이상 꽂혔을 경우 두개다 찾긴 하는데... 이럴경우엔, 리스트박스에 출력해서 원하는 드라이브를 컨트롤 하는게 좋음
반응형
'Programming > VB.NET' 카테고리의 다른 글
비주얼베이직 핑테스트 프로그램 만들기 (VB PING TEST) (0) | 2025.02.01 |
---|---|
VB.NET 복사 & 붙여넣기 한글 깨짐 현상 해결 방법 (1) | 2013.05.14 |
[VB.NET] PC 재부팅 소스 (0) | 2013.05.07 |