[решено] переход на метку VBS
Вложений: 1
Всем доброго времени суток.
Разобрался.
Вот код:
Код:
...
select case [название кейса]
case [название кейса]
....
case [название кейса (уже другое)]
....
end select
|
ymo_4@vk, в VBScript нет меток. Используйте условие, наподобие:
Код:
Dim c
c = InputBox("Введите название.")
If StrComp(c, "ничего", vbTextCompare) Then
…
Else
…
End If
И повторяю ещё раз: для обрамления кода используйте тэг «code», а не «quote» или «spoiler».
|
Вложений: 1
Цитата:
Цитата 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 & " успешно создан!"
|
Цитата:
Цитата ymo_4@vk
И ещё одно, как вы вставляете окошко с названием "код" »
|
Значок октоторпа или [ CODE ] [ / CODE ] (лишние пробелы - удалить) |
Время: 08:13.
© OSzone.net 2001-
