Можно, чегож нельзя
Это правда уже к сабжевой программе не относится
Код:
Dim fso, sFile, nFile, WshShell , f
If WScript.Arguments.Count = 1 Then
Set fso = CreateObject("Scripting.FileSystemObject")
sFile= WScript.Arguments.Item(0)
nFile=Replace(sFile, fso.GetExtensionName(sFile), "txt")
Set f = fso.OpenTextFile(nFile, 2, true)
f.Write ""
f.Close
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad.exe " & nFile, 1, false
Set fso = Nothing
Set WshShell = Nothing
End If
WScript.Quit
Скопируй в блокнот, обзови например filenote.vbs
Потом сделай приблизительно такой рег-файл:
Код:
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\*\shell\Описание файла\command]
@="wscript.exe \"D:\\scripts\\files\\filenote.vbs\" \"%L\" //B"
и добавь инфу в реестр. По правому клику будет пункт "Описание файла"
А можно скрипт просто кинуть в папку SendTo...