[OSArev]

alpap для папок почти тоже самое. Прописать надо, соответстственно, в контекстном меню для папок:

Код:

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)
'----------------------
' Имя папки
Name=folder.ShortName
'-----------------------------------------------
'Создание
'Здесь я добавил проверку и открытие файла, (мне так удобнее). 
'Если тебе проверки не нужны оставь только строку    fso.CreateTextFile(PathName & "\" & Name & ".txt")
 If FSO.FileExists(PathName & "\" & Name & ".txt") Then
    WScript.Echo "Документ  ''"& Name & ".txt" & "'' - уже существует."
 WshShell.Run("Explorer" &" " & PathName & "\" & Name & ".txt")
    WScript.Quit 0
  Else
    fso.CreateTextFile(PathName & "\" & Name & ".txt")
  End If 
 WshShell.Run("Explorer" &" " & PathName & "\" & Name & ".txt")

[alpap]

OSArev, Благодарствую.

[HORiSi]

Не смог правильно написать скрипт и прописать в HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\ (какой параметр создавать? как прописывать сам скрип? в значение по умолчанию или как....)
Поэтому (ну мало ли) здесь же на форуме , некто TWC нарыл в недрах Интернета аналог Filenote, работающий в Windows 7 64bit.
Как говориться "встречайте: FileNoter v091205. "

От себя. Поскольку FileNoter являет собой исполняемый файл, то архив надо распаковать там, где не сотрётся (например, c:\Windows\FiLENOTER. Иначе получите ошибку "Файл не найден") и запустить.

[alpap]

Долго здесь не появлялся!
Хочу закрыть эту тему. Сделал три скрипта по поводу добавления описания как к любому файлу так и к папке, причем
к папке - один в саму папку с тем же именем другой так же но рядом.
1. к файлу
@echo off
cd /d "%~dp2"
@echo off > "%~n2.txt"
start "" "%~n2.txt"
exit

2. к папке в папку
@echo off
cd /d "%~dp2"
set slesh=%~dp2
If "%slesh:~-1%"=="\" set slesh=%slesh:~0,-1%
for /d %%a in ("%slesh%") do set imja=%%~na
@echo off > "%imja%.txt"
start "" "%imja%.txt"
exit

3. к папке рядом
@echo off
cd /d "%~dp2.."
set slesh=%~dp2
If "%slesh:~-1%"=="\" set slesh=%slesh:~0,-1%
for /d %%a in ("%slesh%") do set imja=%%~na
@echo off > "%imja%.txt"
start "" "%imja%.txt"
exit

Почему у меня %~dp[2], n[2]? Я использую стороннюю программу для контектного меню (у меня ОС Windows 7 x86 - админ)
В программе (моей) указывается путь к .bat и выбор показа меню для файла/папки - в обычном меню в реестре это надо разделить, есть такая информация в интернете и здесь и немало.
Сам батник где угодно лучше где-то на С:\ - у меня в программах, сейчас на рабочем столе - путь меняю и все.
Естественно будет работать в любой Windows это же просто батник.
Если будете через реестр ставить в родное конт. меню будет наверное цифра 1 в %~dp[2], n[2], подправьте кто в теме.
Все работает как часы с любыми именами пробелами путями - проверялось.

[alpap]

Хочу добавить, если скачать стороннюю утилиту для работы с буфером, то можно еще упростить все, достаточно скопировать в буфер текст и нажатию кнопки в контекстном меню он автоматически будет вставлен в .txt и сохранен рядом с файлом папкой или в папке.
Утилита http://vb.mvps.org/tools/ConClip

1. к файлу из буфера
@echo off
cd /d "%~dp2"
@echo off > "%~n2.txt"
"C:\Program Files\Bat\GetClip.exe" > "%~n2.txt"
exit

2. к папке в папку из буфера
@echo off
cd /d "%~dp2"
set slesh=%~dp2
If "%slesh:~-1%"=="\" set slesh=%slesh:~0,-1%
for /d %%a in ("%slesh%") do set imja=%%~na
@echo off > "%imja%.txt"
"C:\Program Files\Bat\GetClip.exe" > "%imja%.txt"
exit

3. к папке рядом из буфера
@echo off
cd /d "%~dp2.."
set slesh=%~dp2
If "%slesh:~-1%"=="\" set slesh=%slesh:~0,-1%
for /d %%a in ("%slesh%") do set imja=%%~na
@echo off > "%imja%.txt"
"C:\Program Files\Bat\GetClip.exe" > "%imja%.txt"
exit

У меня эта утилита по адресу: "C:\Program Files\Bat\GetClip.exe", вы же можете положить куда угодно в пределах С:\

[HORiSi]

контекстном меню для папок »

Итак. Создаём ключ для добавления в контекстном меню папок опции "ДОБАВИТЬ ОПИСАНИЕ"

Код:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\AllFilesystemObjects\shell\FileNoter\command]
@="wscript.exe c:\\Windows\\opisanie.vbs \"%1\""

В результате выполнения c:\Windows\opisanie.vbs если путь с пробелами и в кириллице, получим файл рядом с папкой что-то типа 02()10~1.txt

Вопрос. Как названию Файла присвоить имя как у папки до 1-й точки (если такая есть в названии)?

Ответ.
Чтобы получить полное имя папки используем в переменной NME=folder.Name

Итоговый скрип

opisanie.7z

Код:

' В реестре для папок прописать путь к скрипту:
' [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")
  End If 
 WshShell.Run("Explorer" &" " & PathName & "\" & NME & ".txt")

[alpap]

Как названию Файла присвоить имя как у папки »

в bat это так:

Код:

@echo off
set "d=C:\Имя папки.с точкой"

call :# "%d%"
pause& exit

:# "%d%"
  for %%a in ("%~1.") do break>"%%~nxa.txt"
exit /b

[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\""