[Cortina]

Обязательно скрипт? А программа FileNote (FileNote - добавляет пункт к контекстному меню, который позволяет создать текстовый файл с тем же именем, что и тот, который у Вас выделен. После этого автоматически открывает этот файл в Notepad для редактирования.) не пойдёт?

[OSArev]

alpap , почему бы тебе не воспользоватся рекомендацией Cortina ?
Надеюсь, что тебе просто интересно как это на VBS, поэтому держи...Подправишь сам.
У меня длинновато получилось ,но зато работает с именами, содержащими не одну точку,
а также для расширений не равных трём символам.

Если, кто знает, как добиться этого по другому, пожалуйста поделитесь.

Код:

'-------------------------------------------------------------------------
' Определение полного имени
 If WScript.Arguments.Count = 1 Then
   sFile   = WScript.Arguments.Item(0)
   Set fso = CreateObject("Scripting.FileSystemObject")
 End If
'------------------
' короткое имя
Filespec =sfile
Set fso = CreateObject( "Scripting.FileSystemObject" ) 
Set file = fso.GetFile(fileSpec) 
'---------------------------------------------- 
' Извлекаем расширение, можно будет добавлять по желанию.
Dim i, k, m, sym, Ext
 For k = 0 To Len(SFile)
    sym = Mid(SFile,Len(SFile) - k,1)
       If sym = "." Then
             m = Len(SFile) - k + 1
             k = Len(SFile)
       end if
  Next
Ext = ""
  For i = m To Len(SFile)
              Ext = Ext & Mid(SFile,i,1)
  Next   
'------------------
' Отсекаем расширение 
' Узнаём последнюю "."
S = file.ShortName
position = InStrRev(s,".")
' ----------------------
' Получить имя без расширения
str = file.ShortName
intCharacters = position  
strNew = Left(str, intCharacters)
'-------------------------------------
' Можно отсеч последнюю точку, может надо будет...
'str1 = strNew
'intLength = Len(str1) 
'intCharacters = intLength - 1 
'strNew1 = Left(str1, intCharacters) 
'----------------------------------
' узнаём путь к папке
FullPath = fileSpec

Dummy = Split(FullPath, "\") 
JustFile = Dummy(UBound(Dummy)) 

JustPath = Left(FullPath, Len(FullPath) - Len(JustFile)) 
'---------------------------------------------
' Создаём
fso.CreateTextFile(JustPath & strnew & "txt")

[Iska]

' Отсекаем расширение … ' Получить имя без расширения …

OSArev, всегда хотел понять, почему люди, используя «Scripting.FileSystemObject», не используют его методы для выделения пути, имени и расширения файла?

[OSArev]

OSArev, всегда хотел понять, почему люди, используя «Scripting.FileSystemObject »

работает с именами, содержащими не одну точку, а также для расширений не равных трём символам. »

Если, кто знает, как добиться этого по другому, пожалуйста поделитесь »

[OSArev]

почему люди, используя «Scripting.FileSystemObject», не используют его методы для выделения пути, имени и расширения файла? »

Iska!!! Кажется дошло, скажи ты это имел ввиду?

Код:

Set FSO = CreateObject("Scripting.FileSystemObject")
'--------------------------------------------------------------------
' Определение полного имени
 If WScript.Arguments.Count = 1 Then
   sFile   = WScript.Arguments.Item(0)
   Set fso = CreateObject("Scripting.FileSystemObject")
 End If
'----------------------------------------
'Короткое имя, без расширения
Name = FSO.GetBaseName(sFile)
'------------------------------------------------
'Путь для создания
PathName = FSO.GetParentFolderName(sFile)
'------------------------------------------------------------
'Создание
fso.CreateTextFile(PathName & "\" & Name & ".txt")

Спасибо за наводку!

[Iska]

OSArev, угу.

И там же ещё:

читать дальше »

Код:

fso.CreateTextFile(objFSO.BuildPath(PathName, Name & ".txt")

— не надо помнить о наличии или отсутствии завершающего слэша в «PathName».

«fso.GetAbsolutePathName()» позволяет смело использовать в аргументах скрипта относительные пути, наподобие:

Код:

cscript.exe //nologo H:\sample\script.vbs ".\new\boot.ini" "..\..\0040\eject.txt"

[OSArev]

Iska, спасибо! Ты подтолкнул меня в новую(нужную) сторону.

[alpap]

OSArev, дело в том, что FileNote создает текстовик в стандартном блокноте, а у меня стоит AkelPad и хочется чтобы в нем, сохранять быстрее, в нем мышь по умолчанию становится на кнопку "ок", а в блокноте нет, да и не хочу вообще его видеть. После сохранения уже, правда, открывается в AkelPad. Не видит почему-то FileNote AkelPad, в DLL посмотрел - нет там возможности изменить путь - это и есть проблема моя, а еще хочется чтобы можно было добавить описание и папкам, если бы эта программа была exeшником я бы это сделал в конт. меню, а так, кроме DLLки нет ничего, я же к ней путь не укажу, толку с того, сам скрипт нужен.

[Iska]

alpap, Вы не рассматривали вопрос о переходе к работе с каким-либо файловым менеджером, где, как правило, сие давно реализовано («Ctrl-Z» в Far Manager и в TotalCommander)?