How to create a folder & error handler

[Mel]

Excel 2003 & 2007

Hi. Can someone please help me with a code snippit that creates "Test"
folder in the users C:\ root directory; creates "test.txt" file and
"test.ppt" file within that new folder; and also creates "SubTest"
folder in that new folder, but then if they don't have permissions to
create such items it displays an alert "Code P21 - See admin" and then
exits the routine?

Thanks,
Melina

 

[JLGWhiz]

To create the folder:

Sub dk()
ChDir "C:\"
MkDir "test"
End Sub

Then save your files as "C:\test\test.ppt" and "C:\test\test.txt".

 

[JLGWhiz]

I didn't read the entire post, here is the rest:

Sub dk()
On Error GoTo HNDL:
ChDir "C:\"
MkDir "test"
HNDL:
If Err.Number > 0 Then
If Err.Number = 70 Then
MsgBox "Permission Denied"
Else
MsgBox Err.Number & " has occurred"
End If
End If
End Sub