タイトル : Re: フォルダのフルアクセス 投稿日 : 2010/01/28(Thu) 12:38 投稿者 : 魔界の仮面弁士
> 自分のパソコンのフォルダ"Z:\TEMP"をeveryoneでフルアクセスに設定したいのですが > strPath = "Z:\TEMP" '--- 要変更 こういう方法もあります。 Dim cmd As String If Right(strPath, 1) = "\" Then f = Left(strPath, Len(strPath) - 1) End If cmd = "cmd.exe /C ""CACLS ^""" & strPath & "^"" /T /E /G EVERYONE:F""" Shell cmd, vbNormalFocus |