Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.66K
1 Posted Topic
Private Sub Command1_Click() Dim FileSys, FolderPath Set FileSys = CreateObject("Scripting.FileSystemObject") Set FolderPath = FileSys.GetFolder("E:\Locked") FolderPath.Attributes = -1 End Sub Private Sub Command2_Click() Dim FileSys, FolderPath Set FileSys = CreateObject("Scripting.FileSystemObject") Set FolderPath = FileSys.GetFolder("E:\Locked") FolderPath.Attributes = -0 End Sub Great Poject but still finds hidden folder if searched for.
The End.