'Please Modify this program to lock drive C: and D:

Private Sub Command1_Click()
Dim fs As New FileSystemObject
Dim f
Dim strPath As String

strPath = "C:\TestFolder"

Name strPath As strPath & "A"

Set f = fs.GetFolder(strPath & "A")

f.Attributes = -1


End Sub

Private Sub Command2_Click()
Dim fs As New FileSystemObject
Dim f
Dim strPath As String

strPath = "C:\TestFolder"
Set f = fs.GetFolder(strPath & "A")
f.Attributes = 0
Name strPath & "A" As strPath
End Sub