Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум
Имя пользователя:
Пароль:
 

Название темы: [решено] Как объединить два скрипта?
Показать сообщение отдельно

Новый участник


Сообщения: 11
Благодарности: 4

Профиль | Отправить PM | Цитировать

Может так?
Код: Выделить весь код
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text")
FileName = FSO.GetTempName
If FSO.FileExists(FileName & ".txt") Then
WScript.Echo "Документ ''"& FileName & ".txt" & "'' - уже существует."
WScript.Quit 0
Else
fso.CreateTextFile(FileName & "Блокнот.txt")
End If
set oFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(FileName & "Блокнот.txt", 2, True)
ofile.WriteLine(clipboard)
ofile.Close
Это сообщение посчитали полезным следующие участники:

Отправлено: 14:16, 09-09-2022 | #2

Название темы: [решено] Как объединить два скрипта?