Câu lạc bộ Visual Basic

.:: Nơi trao đổi về ngôn ngữ Visual Basic ::.
http://caulacbovb.com/forum/

Format ổ đĩa

http://caulacbovb.com/forum/viewtopic.php?f=55&t=27893

Page 1 of 1

Format ổ đĩa

Posted: Tue 03/09/2013 10:54 am
by baohiep
Thủ thuật: Format ổ đĩa
Tác giả: Sưu tầm
Mô tả: Format ổ đĩa dùng thư viện Management


Trước tiên các bạn Add Reference thư viện System.Management.
Rồi import System.Management

Thêm code:
Code: [Select all] [Expand/Collapse] [Download]
  1.     Public Function FormatDrive(ByVal driveLetter As String, Optional ByVal fileSystem As String = "NTFS", Optional ByVal quickFormat As Boolean = True, Optional ByVal clusterSize As Integer = 4096, Optional ByVal label As String = "", Optional ByVal enableCompression As Boolean = False) As Boolean
  2.         If driveLetter.Length <> 2 OrElse driveLetter(1) <> ":"c OrElse Not Char.IsLetter(driveLetter(0)) Then
  3.             Return False
  4.         End If
  5.  
  6.         'query and format given drive        
  7.         Dim searcher As New ManagementObjectSearcher("Select * from Win32_Volume WHERE DriveLetter = '" & driveLetter & "'")
  8.         For Each vi As ManagementObject In searcher.[Get]()
  9.             vi.InvokeMethod("Format", New Object() {fileSystem, quickFormat, clusterSize, label, enableCompression})
  10.         Next
  11.  
  12.         Return True
  13.     End Function
GeSHi © Codebox Plus


Cách sử dụng:
[text]FormatDrive([driveleter], [filesystem], [quickformat], [clusterSize], [label], [enableCompression])[/text]
Ví dụ
[vbnet]FormatDrive("I:", "NTFS", True, 4096, "BAO HIEP", False)[/vbnet]
All times are UTC+07:00
Page 1 of 1
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/