日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當(dāng)前位置:雨林木風(fēng)下載站 > 技術(shù)開(kāi)發(fā)教程 > 詳細(xì)頁(yè)面

VB6編程中如何取得硬盤(pán)分區(qū)信息

VB6編程中如何取得硬盤(pán)分區(qū)信息

更新時(shí)間:2022-05-14 文章作者:未知 信息來(lái)源:網(wǎng)絡(luò) 閱讀次數(shù):

也許你并不了解硬盤(pán)分區(qū)信息應(yīng)該包括些什么,但如果你曾經(jīng)對(duì)硬盤(pán)分過(guò)區(qū),你或許對(duì)此有所了解,在此為各位介紹一個(gè)用VB編寫(xiě)的獲取硬盤(pán)分區(qū)信息的程序。在這個(gè)程序中,它將詳細(xì)地告訴你:你的硬盤(pán)總?cè)萘俊⒎诌^(guò)幾個(gè)區(qū)、每個(gè)區(qū)的總?cè)萘俊⒓艾F(xiàn)在剩余的可用容量、硬盤(pán)分區(qū)表為幾位(即是FAT32還是FAT16),每個(gè)分區(qū)是幾個(gè)字節(jié)……怎么樣?夠完整詳細(xì)了吧!好的,就讓我們一起來(lái)看一下吧:
  首先做準(zhǔn)備工作:在FORM1上新建二個(gè)LABEL(LABEL1和LABEL2)一個(gè)COMMAND1命令按鈕。然后輸入以下代碼:
  Private Declare Function GetDriveType Lib
  kernel32“Alias "GetDriveTypeA(ByVal nDrive As String) As Long
  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 Const DRIVE_FIXED = 3
  Private Sub Form_Load() ‘作初始化設(shè)置
  COMMAND1.Caption = “測(cè)試硬盤(pán)"
  Form1.Caption = “測(cè)試硬盤(pán)程序"
  Label1.WordWrap = True
  Label1.Caption = “"
  Label2.WordWrap = True
  Label2.Caption = “"
  End Sub
  Private Sub COMMAND1_Click()
  Dim DriveNum As Integer
  Dim TempDrive As String
  Dim X As Long
  For DriveNum = 97 To 122 Step 1 ‘檢測(cè)從A-Z(盤(pán)符)
  TempDrive = GetDriveType(Chr(DriveNum) & “:\")
  Select Case TempDrive ‘如是3則表示是硬盤(pán),測(cè)試你有幾個(gè)盤(pán)
  Case 3: X = GetDiskSpace(Chr(DriveNum)) ‘調(diào)用子程序
  End Select
  Next DriveNum
  End Sub
  Public Function GetDiskSpace(DrivePath As String)
  Dim Drive As String
  Dim SectorsPerCluster As Long
  Dim BytesPerSector As Long
  Dim NumberOfFreeClusters As Long
  Dim TotalClusters As Long
  Dim Check As Integer
  Dim DiskSpace
  Dim diskTotal
  Static AllDiskTotal As Long
  Static NUM As Integer
  NUM = NUM + 1 ‘分幾個(gè)區(qū)的計(jì)算
  Drive = Left(Trim(DrivePath), 1) & “:\"
  Check = GetDiskFreeSpace(Drive, SectorsPerCluster, BytesPerSector, NumberOfFreeClusters, TotalClusters)
  If Check <> 0 Then
  DiskSpace = SectorsPerCluster * BytesPerSector * NumberOfFreeClusters
  ‘這是一個(gè)分區(qū)磁盤(pán)剩余空間的計(jì)算公式
  DiskSpace = Format$(DiskSpace, “###,###") ‘以規(guī)定格式顯示,如732,324,231
  diskTotal = SectorsPerCluster * BytesPerSector * TotalClusters
  ‘這是一個(gè)分區(qū)磁盤(pán)總?cè)萘康挠?jì)算公式
  diskTotal = Format$(diskTotal, “###,###")
  AllDiskTotal = AllDiskTotal + diskTotal ‘整個(gè)硬盤(pán)的總?cè)萘?br>  Label1.Caption =“你的硬盤(pán)總?cè)萘繛?” & Format$(AllDiskTotal,“###,###") &個(gè)字節(jié),即:” & Left(AllDiskTotal, 1) & . & Mid(AllDiskTotal, 2, 1) &“G,一共分了”& NUM &“個(gè)區(qū),其中:"
   Label2.Caption = Label2.Caption & UCase(DrivePath) & “盤(pán)的整個(gè)容量為:" & diskTotal &“個(gè)字節(jié)" & ",其剩余磁盤(pán)空間為:“& DiskSpace & " 個(gè)字節(jié),磁盤(pán)已FAT“& SectorsPerCluster & ",每個(gè)分區(qū)為:“& BytesPerSector & "個(gè)字節(jié)。“& vbCrLf & vbCrLf”
  End If
  End Function
  OK!現(xiàn)在你運(yùn)行一下,你是否滿(mǎn)意它?
  注:以上程序在中文WINDOWS98,中文VB6.0企業(yè)版中調(diào)試通過(guò)。

溫馨提示:喜歡本站的話,請(qǐng)收藏一下本站!

本類(lèi)教程下載

系統(tǒng)下載排行

主站蜘蛛池模板: 午夜色大片在线观看 | 亚洲一区二区三区国产精品 | 最近更新免费2018在线观看 | 亚洲欧洲一二三区 | 日日狠狠 | 99精品在线免费观看 | 免费一区二区三区在线视频 | 国产精品永久免费 | 正在播放一区 | 久国产精品久久精品国产四虎 | 风间由美一区二区 | 国产bbbbsign| 欧美在线视频在线观看 | 干干日日 | 中文字幕一区二区在线观看 | 久久精品天天中文字幕人 | 国产三级网站在线观看播放 | 野草在线观看视频精品 | 欧美色吊丝| 欧美日韩一区二区在线 | 亚洲欧美另类在线观看 | 日韩欧美视频二区 | 在线播放91 | 翔田千里在线精品视频 | 亚洲欧美日韩国产精品 | 青青青青青青青草 | 国产一区二区三区免费 | 亚洲精品一区二区久久这里 | 国产精品一区久久精品 | 精彩视频一区二区 | 亚洲精品短视频 | 国产成人精品高清不卡在线 | 欧美精品在线一区 | rion美乳弹出来四虎在线观看 | 久久成人18免费 | 91aaa在线观看 | 日韩国产一区二区 | 色护士综合 | 狠狠操综合网 | 青青青青久久久久国产 | 久久精品国产免费高清 |