Create Directory File Permissions

hey im creating a directory as a test with the following code

Dim SecAttrib As SECURITY_ATTRIBUTES
Dim SecDec As SECURITY_DESCRIPTOR
Dim bSuccess As Boolean



SecAttrib.lpSecurityDescriptor = &O0
SecAttrib.bInheritHandle = False
SecAttrib.nLength = Len(SecAttrib)
bSuccess = CreateDirectory("c:\cryptz", SecAttrib)


my question is how cani specify directory permissions for the folder i want to remove all the permissions and set it so that only the username (in this case cryptz) gets access to the folder, full controll...