Цитата denis19:
|
Можно ли их как то убрать? »
|
к примеру рандом ..
Код:
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
