[SendMessage]

не могу понять что он просит »

Первое: если стоит инструкция Option Explicit, то переменные необходимо объявлять. У Вас переменная strdir не прописана.

Код:

Option Explicit
Dim strdir
strdir="C:\test\readme.txt"

Второе: чтобы запустить программу, используйте метод Run объекта WshShell (http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx). Объект прежде необходимо создать.

Код:

Dim objWshShell
Set objWshShell = CreateObject("WScript.Shell")
objWshShell.Run "cacls " & strdir & " /G все:F"

Все вместе должно выглядеть так:

Код:

Option Explicit
Dim strdir
Dim objWshShell
strdir="C:\test\readme.txt"
Set objWshShell = CreateObject("WScript.Shell")
objWshShell.Run "cacls " & strdir & " /G все:F"
WScript.Quit

Ну и последнее: команда называется cacls, а не calcs.

[D_e_n_n]

а как избежать вопроса команды cacls, либо ответить на вопрос "y"?

[SendMessage]

ответить на вопрос "y" »

Код:

objWshShell.Run "cmd /c echo Y|cacls " & strdir & " /G все:F"