[OSArev]

чтобы папка создавалась в каталоге из которого он вызван (кнопкой QTTabBar) »

, насчёт этого не знаю, а для

чтобы папка создавалась в каталоге из которого он вызван »

, сейчас проверил: скрипт лежит на Столе, а вызывал из другой папки - создаёт папку в папке из которой вызывался.
Вот немного расширенный скрипт:

Код:

Option Explicit
Dim objFSO, objFolder, objShell, strDirectory 
strDirectory = InputBox("Ввести название папки:", "Создание папки.") 
'Для кнопки Отмена или для пустого поля ввода
 If strDirectory=Empty Then
   WScript.Quit
 End If

Set objFSO = CreateObject("Scripting.FileSystemObject") 
'Проверка на существование папки и создание.
'Добавил открытие папки
If objFSO.FolderExists(strDirectory) Then 
Set objFolder = objFSO.GetFolder(strDirectory) 
WScript.Echo "Папка  ''"& strDirectory &"''  уже создана " 
Else
Set objFolder = objFSO.CreateFolder(strDirectory) 
'WScript.Echo "Вновь созданная папка ''"& strDirectory &"''."
End If

If err.number = vbEmpty then 
Set objShell = CreateObject("WScript.Shell") 
objShell.run ("Explorer" &" " & strDirectory & "\" ) 
Else 
WScript.echo "Ошибка vbscript: " & err.number 
End If 

WScript.Quit

аналогичный скрипт для создания текстового файла »

Код:

Dim FSO, MyFile
 
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set WshShell = WScript.CreateObject("WScript.Shell")

  FileName=Inputbox("Введите имя:","Создание текстового документа.")
'Для кнопки Отмена или для пустого поля ввода
 If FileName=Empty Then
   WScript.Quit
 End If

'Проверка на существование файла и создание.
'Добавил открытие файла
 If FSO.FileExists(FileName & ".txt") Then
    WScript.Echo "Документ  ''"& FileName & ".txt" & "'' - уже существует."
 WshShell.Run("Explorer" &" " & FileName & ".txt")
    WScript.Quit 0
  Else
    fso.CreateTextFile(FileName & ".txt")
  End If 
 WshShell.Run("Explorer" &" " & FileName & ".txt")

[balzaman]

, сейчас проверил: скрипт лежит на Столе, а вызывал из другой папки - создаёт папку в папке из которой вызывался. »

спасибо!
всё работает супер, но...
объекты создаются в каталоге, в котором они расположены
например скрипт лежит на рабочем столе, открываем какую либо папку, создаем в ней ярлык на данный скрипт, запускаем - итог, объект создан на рабочем столе, а не в папке из которой он вызван
а нужно именно данное действие (создание объекта в папке вызова)
сторку созания текстового файла
WshShell.Run("Explorer" &" " & FileName & ".txt") подправил на
WshShell.Run("Notepad" &" " & FileName & ".txt")
и еще нюанс
как изменить скрипт, чтобы объект создавался в каталоге вызова (ярлыком) и был просто выделен, а не открыт

[OSArev]

А из контекстного меню?
Если Windows 7 можно из контекстного меню. Reg-файл для папки

Код:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\Background\shell\Новая папка]

[HKEY_CLASSES_ROOT\Directory\Background\shell\Новая папка\command]
@="WScript C:\\Users\\999\\Desktop\\001.vbs \"%V\""

Путь укажи свой.

как изменить скрипт, чтобы объект создавался в каталоге вызова (ярлыком) »

1.Делаешь ярлык.
2.Пр.кнопка => Свойства.
3.В строке быстрый вызов указываешь путь до папки исполнения.
Например: D:\
4.Применить и ОК

был просто выделен, а не открыт »

Я понял не нужно. чтобы при создании объект открывался?
Тогда удали строчки

Код:

If err.number = vbEmpty then 
Set objShell = CreateObject("WScript.Shell") 
objShell.run ("Explorer" &" " & strDirectory & "\" ) 
Else 
WScript.echo "Ошибка vbscript: " & err.number 
End If

для папки и

Код:

Set WshShell = WScript.CreateObject("WScript.Shell")
и
WshShell.Run("Explorer" &" " & FileName & ".txt")

для файла.

[balzaman]

Если Windows 7 можно из контекстного меню. Reg-файл для папки »

у меня установлена wondows xp sp3

с созданием папки в активном каталоге я разобрался
в свойствах кнопки плагина Launcher Buttons (программа Qttbar) прописал Working Dir = %c%
теперь папка создается именно в каталоге из которого производится запуск скрипта

Я понял не нужно. чтобы при создании объект открывался? Тогда удали строчки »

по данному изменению:
объекты создаются, но не выделяются!
например, есть каталог с массой всяких папок, вызван скрипт создания папки \ файла (тот что без последующего открытия)
объект создается, затем его нужно найти и выделить
можно ли сделать так, чтобы созданный объект выделялся автоматически?

[OSArev]

можно ли сделать так, чтобы созданный объект выделялся автоматически? »

Вот этого, я ещё не знаю.

[balzaman]

OSArev, спасибо за помощь

[DPCKA]

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\Background\shell\Новая папка]

[HKEY_CLASSES_ROOT\Directory\Background\shell\Новая папка\command]
@="WScript C:\\Users\\999\\Desktop\\001.vbs \"%V\""

делаю также, вылазит ошибка, кто может помочь ?

[Iska]

DPCKA, «@» в

Код:

@="WScript C:\\Users\\999\\Desktop\\001.vbs \"%V\""

и означает параметр по умолчанию. Вам следовало не вводить ручками, а сохранить приведённый текст:

Код:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\Background\shell\Новая папка]

[HKEY_CLASSES_ROOT\Directory\Background\shell\Новая папка\command]
@="WScript C:\\Users\\999\\Desktop\\001.vbs \"%V\""

в .reg-файл и импортировать его. Ровно как и было написано выше.

P.S. После импорта reg-файла можете открыть редактор реестра и посмотреть, как должно было выглядеть то, что Вы хотели ввести «ручками».

[DPCKA]

Iska, спасибо.