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

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".



"Mel" <(E-Mail Removed)> wrote in message
news:b0d5fbd1-3de2-4742-9127-(E-Mail Removed)...
> 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
>

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





"Mel" <(E-Mail Removed)> wrote in message
news:b0d5fbd1-3de2-4742-9127-(E-Mail Removed)...
> 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
>