Total Commander

[LocKtaR-o-DarK]

Dimsok

VBS-Код:
Option Explicit
dim dt, y, m, d, h, n, s, list, df

dt = now
' год
y = datepart("yyyy", dt)
' месяц
m = datepart("m", dt)
if m<10 then
m="0"&m
end if
' день
d = datepart("d", dt)
if d<10 then
d="0"&d
end if
' час
h = datepart("h", dt)
if h<10 then
h="0"&h
end if
' минута
n = datepart("n", dt)
if n<10 then
n="0"&n
end if
' секунда
s = datepart("s", dt)
if s<10 then
s="0"&s
end if

list= d & "." & m & "." & y & "_" & h & "." & n & "." & s &".txt"
' MsgBox list
' MsgBox now

CreateObject("Scripting.FileSystemObject").OpenTextFile(list, 2, true).WriteLine "" &CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")

df = MsgBox ("Создан файл: "&list, vbYesNo, "Открыть файл в редакторе?")

Select Case df
Case vbYes
CreateObject("Wscript.Shell").run"notepad.exe "&list
Case vbNo
' MsgBox "Создан файл: "&list
End Select

Оговорюсь, что буфер обмена в настройках IE должен быть включён
Редактор, конечно, по вкусу (43 строка кода)

Кнопка