[Iska]

ymo_4@vk, в VBScript нет меток. Используйте условие, наподобие:

Код:

Dim c

c = InputBox("Введите название.")

If StrComp(c, "ничего", vbTextCompare) Then
	…
Else
	…
End If

И повторяю ещё раз: для обрамления кода используйте тэг «code», а не «quote» или «spoiler».

[ymo_4@vk]

Dim c c = InputBox("Введите название.") If StrComp(c, "ничего", vbTextCompare) Then … Else … End If »

а можно ли сделать так как написано на примере

Код:

Dim FSO, c, a
a = InputBox("Для папки введи - pack, для текстового документа - txt, для vbScript'a - vb")
c = inputbox("Введите название.")
[если человек ввел в переменной "c" "txt", то выполнение перкидалось сюда]
Set FSO=CreateObject("Scripting.FileSystemObject")
[если человек пишет "bat" то его перекидывает сюда]
fso.Createtextfile(c & ".txt")
MsgBox "Файл " & c & " успешно создан!"

[Elven]

И ещё одно, как вы вставляете окошко с названием "код" »

Значок октоторпа или [ CODE ] [ / CODE ] (лишние пробелы - удалить)