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

[denis19]

Всем добрый день. Пользуюсь скриптом который создаёт новый блокнот и сразу вставляет в него текст из буфера обмена. Но вот когда хочу создать второй с уже новым текстом, то первый надо обязательно переименовать, иначе второй блокнот не создастся, там просто в первом заменится текст.
Можно ли сделать чтоб новый с новым текстом создавался без переименования первого? Или может существует другой вариант?
Заранее спасибо.

Скрипт создания и вставки текста, но с переименовыванием
clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text")
file = left(ScriptPath, instrrev(ScriptPath, "\")) & "Блокнот.txt"
'2 - дозапись, True - создавать, если
set oFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(file, 2, True)
ofile.WriteLine(clipboard)
ofile.Close

Этот может создавать каждый раз новый без переименования первого, но без вставки в него текста
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
FileName = FSO.GetTempName
If FSO.FileExists(FileName & ".txt") Then
WScript.Echo "Документ ''"& FileName & ".txt" & "'' - уже существует."
WScript.Quit 0
Else
fso.CreateTextFile(FileName & "Блокнот.txt")
End If

[olga_maksi29]

Может так?

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

[denis19]

Во, то что надо. Спасибо. :)
И ещё маленький вопрос, хоть и не так важно. Сделал ему имя "Блокнот", но всегда вначале к имени добавляется некрасивые эти буквы и цифры rad843BE.tmpБлокнот.txt. Можно ли их как то убрать?

[olga_maksi29]

Можно ли их как то убрать? »
к примеру рандом ..

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text")
Randomize()
FileName =int((100 * Rnd) + 1)
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

к примеру имя получим - Блокнот_(числа 1-100).txt

[denis19]

Спасибо большое. То что надо. :up