Trang Chính
- Code:
Dim fs, d, dc, mAll_Drive As String, mComputer As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d In dc
'm_SelectForder.Add LCase(d) & "\", LCase(d)
'mComputer = mComputer & d & ";"
Select Case d.DriveType
Case 0 '"Unknown - Kh«ng biÕt"
Case 1 '"Removable Floppy - æ mÒm"
If d.IsReady Then '"Drive is Ready."
If UCase(d) = "A:" Or UCase(d) = "B:" Then
'.Add , LCase(d), IIf(d.VolumeName = "", "Floppy Disk", d.VolumeName) + " (" + d + ")", "Floppy", , 2
Else
'.Add , LCase(d), IIf(d.VolumeName = "", "Removable Disk", d.VolumeName) + " (" + d + ")", "Removable", , 2
End If
Else '"Drive is not Ready."
If UCase(d) = "A:" Or UCase(d) = "B:" Then
'.Add , LCase(d), "Floppy Disk (" + d + ")", "Floppy", , 2
Else
'.Add , LCase(d), "Removable Disk (" + d + ")", "Removable", , 2
End If
End If
Case 2 '"Fixed - æ cøng"
'mAll_Drive = mAll_Drive & d & ";"
If d.IsReady Then '"Drive is Ready."
'.Add , LCase(d), IIf(d.VolumeName = "", "Local Disk", d.VolumeName) + " (" + d + ")", "Drive", , 2
Else '"Drive is not Ready."
'.Add , LCase(d), "Local Disk (" + d + ")", "Drive", , 2
End If
'Drive_Backup = d & "\"
Case 3 '"Network - æ m¹ng"
If d.IsReady Then '"Drive is Ready."
'.Add , LCase(d), IIf(d.ShareName = "", "Disconnected Network Drive", d.ShareName) + " (" + d + ")", "DriveNet", , 2
Else '"Drive is not Ready."
'.Add , LCase(d), "Disconnected Network Drive (" + d + ")", "DriveNet", , 2
End If
Case 4 '"CD-ROM - æ cd"
If d.IsReady Then '"Drive is Ready."
'.Add , LCase(d), IIf(d.VolumeName = "", "CD Drive", d.VolumeName) + " (" + d + ")", "CDRom", , 2
Else '"Drive is not Ready."
'.Add , LCase(d), "CD Drive (" + d + ")", "CDRom", , 2
End If
Case 5 '"RAM Disk - Ram"
If d.IsReady Then '"Drive is Ready."
'.Add , LCase(d), IIf(d.VolumeName = "", "Ram Disk", d.VolumeName) + " (" + d + ")", "RAM", , 2
Else '"Drive is not Ready."
'.Add , LCase(d), "Ram Disk (" + d + ")", "RAM", , 2
End If
End Select
Next d
'm_SelectForder.Add "Browse ...", "Browse"
'.Add , "Browse", "Browse ...", "Browse", , 0
End With
Viết ct chống ghi vào USB BANG VB6
Admin
Giới tính : 
Đến từ : TPHCM
Ngày Tham gia : 03/04/2011
Tổng số bài gửi : 2292
|
|
|