Цитата D_e_n_n:
|
не могу понять что он просит »
|
Первое: если стоит инструкция
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.
