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