نمی دونم از شانس ماست که هر چی میپرسیم کسی جواب نمیده
حداقل بگید کار با این دستورات چطوریه و به چه درد می خورن :
Dim fperm As New FileIOPermission(PermissionState.Unrestricted, "c:\")

 fperm.AllLocalFiles = FileIOPermissionAccess.AllAccess