[Iska]

Madinka, что говорит код:

Код:

WScript.Echo WScript.CreateObject("Scripting.FileSystemObject").FolderExists("C:\Documents and Settings\User\rabochii stol")

?

[Madinka]

Set WshShell = CreateObject("WScript.Shell")
Set WshExec = WshShell.Exec("cmd.exe /c rar.exe x C:\Temp\arhiv.rar")
SEt lf1 = WshShell.CreateTextFile("C:\log.txt", True)
lf.WriteLine ("arhiv razarhivirovan na rabochii stol")
в этом коде хочу разархивировать архив на рабочий стол и ввести строку ("arhiv razarhivirovan na rabochii stol") в log.txt.

1) почему распаковка архива выполняется на диск с:\ а не на рабочий стол?
2) сообщение в текстовый файл не выполняется, почему?

рабочий стол находится по этому пути: C:\Documents and Settings\User\rabochii stol\*.*

[Iska]

1) почему распаковка архива выполняется на диск с:\ а не на рабочий стол? »

А почему Вы думаете, что извлечение содержимого архива должно — вдруг! — производиться на Рабочий стол? Вы не указываете путь для извлечения, Вы не меняете текущий каталог — чего же удивляться результату?

2) сообщение в текстовый файл не выполняется, почему? »

Сообщение об ошибке:

Ошибка: Объект не поддерживает это свойство или метод: 'WshShell.CreateTextFile'

Вам ничего не говорит? Например, то, что пытаться использовать для создания текстового файла объект «WScript.Shell» (вместо потребного объекта «Scripting.FileSystemObject») — несколько странно.

рабочий стол находится по этому пути: C:\Documents and Settings\User\rabochii stol\*.* »

Рабочий стол находится по любому из:

Код:

WScript.Echo WScript.CreateObject("WScript.Shell").SpecialFolders("Desktop")
WScript.Echo WScript.CreateObject("Shell.Application").NameSpace("shell:Desktop").Self.Path

[Madinka]

Какой метод нужно использовать, чтобы вывести сообщение в текстовый файл для объекта «WScript.Shell» ?

[Iska]

.Write/.WriteLine