請問vb有關磁碟機操作的函數
die
所以想請教一下各位高手~~麻煩大家幫我找一下我的程式到底出了什麼問題謝謝~~
以下為我的程式碼~~我是用一個drivebox選擇磁碟機然後在顯示出磁碟機的可用空間、
己使用空間、檔案系統等的資料，我之前執行時都還算沒有問題，只是抓到的大小會與
windows檔案總管抓的大小會有一點點的差異，請問有人知道這是什麼原因造成的嗎~~
又我上次和老師demo這個程式時，是在老師的notebokk上面做測試，沒想到執行程式抓
出來的硬碟大小竟然是0(我也不太記得了，就是使用空間或是可用空間其中一個是0)
可是我在個人電腦上執行也沒有錯誤丫~~能否請知道原因的高手告訴我呢~~
小妹感激不盡丫~~
Private Sub Drive1_Change()
Cls
On Error GoTo errorhandler
Dir1.Path = Drive1.Drive
ChDrive (Drive1.Drive)
On Error Resume Next
Dim drv As Drive
Set drv = fs.GetDrive(Left(File1.Path, 2))
Size1 = drv.TotalSize
Size2 = drv.FreeSpace
Size3 = Size1 - Size2
Label1.Caption = drv.DriveLetter & " 碟使用空間為" & FormatNumber(Size3 /
1048576, 3) & " MB" & " (" & FormatNumber(Size3 / Size1 * 100, 2) & " %)"
Label2.Caption = drv.DriveLetter & " 碟可用空間量為" & FormatNumber(Size2 /
1048576, 3) & " MB" & " ( " & FormatNumber(Size2 / Size1 * 100, 2) & " %)"
--
我第一次為了自己喜歡的男人而懂的去體貼.......
這次我願意多分給你一點時間 ......
可是我不是那麼有耐心......
期限是一百年.....
直到你的心朝向我......
--
◎ [1;31m龍 [32m貓 [33m資 [34m訊 [35m天 [36m地 [0m( [1mbbs.mgt.ncu.edu.tw [0m)
◎[ [1;33;46mthinker [0m]From: M413-27.cyut.edu.tw