想知道硬碟槽有幾個
想知道硬體槽有幾個
和隨身碟槽
C: D: E: 槽硬碟槽
F: G: 而是光碟槽
H:隨身碟槽
我想要寫
如在硬碟槽裡或隨身碟
底下就會創立新資料夾或刪除
而光碟槽就不會有動作
請問要如何寫
2 則回答
最佳解答
有2個方式可以取得磁碟機1.API--2.FileSystemObject
既然樓上介紹API,那我就用第2種方式寫(避免抄襲)
前制動作
在 [專案引用] 對話方塊選取 [Microsoft Scripting Run-time]
'程式開始,拉一個button與Listbox
Private Sub Command1_Click()
Dim fs As New FileSystemObject
Dim dr As Drive
Listbox1.Clear
For Each dr In fs.Drives
Select Case dr.DriveType
Case 1
List1.AddItem dr.DriveLetter & ":\ " & "軟碟機"
Case 2
List1.AddItem dr.DriveLetter & ":\ " & "硬碟機"
Case 3
List1.AddItem dr.DriveLetter & ":\ " & "網路磁碟機"
Case 4
List1.AddItem dr.DriveLetter & ":\ " & "光碟機"
Case 5
List1.AddItem dr.DriveLetter & ":\ " & "RamDisk機"
Case Else
List1.AddItem dr.DriveLetter & ":\ " & "不明機"
End Select
'一般來說,因為隨身碟的型號不同,所以程式會判定為軟碟機
'故依照你的需求可這樣寫
if dr.DriveType=1 or dr.DriveType=2 then
'以下這行為建立資料夾(2選1)
if dir(dr.DriveLetter & ":\你的資料名稱")="" then mkdir(dr.DriveLetter & ":\你的資料名稱")
'以下這行為刪除(2選1)
if dir(dr.DriveLetter & ":\你的資料名稱")="" then kill(dr.DriveLetter & ":\你的資料名稱")
end if
Next dr
End Sub
這個問題不難你只要使用下以的 Win API就可以了。
GetLogicalDrives () ==> 取得目前系統中現有的磁碟機代號
GetDriveType() ==> 判斷磁碟的類型。
所以，你可以用 Google 從網路找一下，應該就能找到 Sample Code了。