タイトル | : Re: フォルダのフルアクセス |
記事No | : 14438 |
投稿日 | : 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
|