VBS/WSH/JS

Iska · Отправлено: **01:23, 29-11-2017** | #2

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

Код:

Dim c

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

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

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

ymo_4@vk · Отправлено: **15:44, 29-11-2017** | #3

Цитата Iska:

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 · Отправлено: **16:02, 29-11-2017** | #4

Цитата ymo_4@vk:

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

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