[HORiSi]

для папок »

"ДОБАВИТЬ ОПИСАНИЕ" »

Итого.
Собрал reg и два vbs: один для добавления описания к папке, другой – для файлов
Для работы «описаний»:
1. положить файлы vbs в C:\Windows
2. запустить вРеестрОписание.reg

вРеестрОписаниеДляПапки+Файла.7z

opisanie.vbs
opisaniefaila.vbs
вРеестрОписание.reg

opisanie.vbs

' http://forum.oszone.net/post-1640513-11.html
' В реестре для папок прописать путь к скрипту:
' [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\AllFilesystemObjects\shell\FileNoter\command]
' @="wscript.exe c:\\Windows\\opisanie.vbs \"%1\""
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
'----------------------------------------------------
If WScript.Arguments.Count = 1 Then
sFolder = WScript.Arguments.Item(0)
End If
Set Folder = FSO.GetFolder(sFolder)
'-------------------------------------
'Путь для создания
PathName = FSO.GetParentFolderName(sFolder)
'----------------------
' Полное имя папки
' если нужно короткое, то меняем на строку
' NME=folder.ShortName
NME=folder.Name
'-----------------------------------------------
'Создание
'Проверка с тем же именем, что и папка, и если он существует – открытие файла
'Если тебе проверки не нужны оставь только строку
' fso.CreateTextFile(PathName & "\" & NME & ".txt")
If FSO.FileExists(PathName & "\" & NME & ".txt") Then
WScript.Echo "Документ ''"& NME & ".txt" & "'' - уже существует."
WshShell.Run("Explorer" &" " & PathName & "\" & NME & ".txt")
WScript.Quit 0
Else
fso.CreateTextFile(PathName & "\" & NME & ".txt")
' fso.CreateTextFile(objFSO.BuildPath(PathName, NME & ".txt"))
End If
WshShell.Run("Explorer" &" " & PathName & "\" & NME & ".txt")

opisaniefaila.vbs

' http://forum.oszone.net/post-1640513-11.html
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
'--------------------------------------------------------------------
' Определение полного имени
If WScript.Arguments.Count = 1 Then
sFile = WScript.Arguments.Item(0)
Set fso = CreateObject("Scripting.FileSystemObject")
End If
'----------------------------------------
'Короткое имя, без расширения
NME= FSO.GetBaseName(sFile)
'------------------------------------------------
'Путь для создания
PathName = FSO.GetParentFolderName(sFile)
'------------------------------------------------------------
'Создание
'-----------------------------------------------
'Создание
'Проверка с тем же именем, что и папка, и если он существует – открытие файла
'Если тебе проверки не нужны оставь только строку
' fso.CreateTextFile(PathName & "\" & Name & ".txt")
If FSO.FileExists(PathName & "\" & NME & ".txt") Then
WScript.Echo "Документ ''"& NME & ".txt" & "'' - уже существует."
WshShell.Run("Explorer" &" " & PathName & "\" & NME & ".txt")
WScript.Quit 0
Else
fso.CreateTextFile(PathName & "\" & NME & ".txt")
' fso.CreateTextFile(objFSO.BuildPath(PathName, NME & ".txt"))
End If
WshShell.Run("Explorer" &" " & PathName & "\" & NME & ".txt")

вРеестрОписание.reg

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\AllFilesystemObjects\shell\opisanie]
@="ДОБАВИТЬ ОПИСАНИЕ"
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\AllFilesystemObjects\shell\opisanie\command]
@="wscript.exe c:\\Windows\\opisanie.vbs \"%1\""

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\opisaniefaila]
@="ОПИСАНИЕ ФАЙЛА"
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\opisaniefaila\command]
@="wscript.exe c:\\Windows\\opisaniefaila.vbs \"%1\""