Scripting.FileSystemObject gives Permission denied

Hello,

Can someone tell me why I'm getting the error message "run-time error '70' Permission denied" when running the code below?

The code below involves 2 sub-procedures which are being used to list folders on my computer.

I'm running Vista Home Edition. I was under the impression that if I clicked the Windows icon and typed 'Excel' into the start search prompt, that by then pressing CTRL + SHIFT + Enter I would start Excel as Admin and not be denied permission to folders and files.

As shown below, the first sub executes and calls the second sub which throws an error at the line "Cells(r, 3).Value = SourceFolder.Size". The debugger then shows "SourceFolder.Size = <Permission denied>".

Thanks for any and all advice in advance! Your help is greatly appreciated!

Please Login or Register  to view this content.

Please Login or Register  to view this content.