Делаем мину

[tyomitch]

%SYTEMROOT% он точно не поймет

В смысле - не поймёт? А как же

Код: Выделить всё

Debug.Print Environ ("SYSTEMROOT")

:?:

[Sonic the Hedgehog]

Спсибо большое!
правда писать до хера

[Sonic the Hedgehog]

Tyomith, а что означает код Debug Print Environ ("SYSTEMROOT")
И скажи пожалуйста как ты вставил в текст сообщения такой зелёный код с белым фоном

[xolod]

1) Матом лучше на кул-хацкерских сайтах изрекаться
2) Debug.Print Environ("SYSTEMROOT") в окне отладки выпешет значение %SYSTEMROOT%
3) Уууу.. Зеленый код с белым фоном доступен только избранным

Код: Выделить всё

BBCode Рулит


[Sonic the Hedgehog]

Спасибо xolod - избраный , учту правила

Да и кстати, так как я недавно (месяца2 назад) начал на VB кодить
так что ещё совсем чайник в VB, Скажите что такое функции и с чем их едят?
или или не укого завалялся учебник по VB?
у меня только учебник от Падре (прикольный учебник кстати)

[Sonic the Hedgehog]

Эх...придётся обойтись без переменых
остаётся надеятся что у юзера (который нажмёт бомбу)
Виндоус будет на ходится на диске C и папка называтся Windows
Да и кстати, в честь того, что я часто переустанавливаю виндоус, я решил бомбу на себе испытать
не получилось
<i> мдя </i>

[GM]

%SYTEMROOT%

Он букву S пропустил.
А достать переменную как писали можно с помощью ф-ции пример:

Код: Выделить всё

sub form_load()
dim s as string
s= environ("SYSTEMROOT")
msgbox(s)
end sub


[Sonic the Hedgehog]

ААА!!!!!! СПАСИБО ДОБРЫЙ ПРОТОС
!!!!!!!!!!!!!
Пойду использую твой вариант

[Sonic the Hedgehog]

Не работает вот тест сделал

Код: Выделить всё

Dim s As String

Private Sub Form_Load()
s = Environ("SYSTEMROOT")
Shell ("cmd /X /C del s/1.txt")

[Amed]

Может быть,

Код: Выделить всё

Shell ("cmd /X /C del " & s & "/1.txt")

[tyomitch]

GM, пример я уже постил, в самом верху на этой странице
Но кул-хацкеру Soinc-у, похоже, он не поможет

Sonic, зайди за учебником в любой ближайший книжный магазин, он там есть

[tyomitch]

Упс, протормозил...
Ну ладно. Amed, подсказываю - дело не в слеше

[Amed]

Ох ты... Я только сейчас понял, какую тупость написал... Мли-и-и-ин... Позор мне

Первый раз способ давать ответ, не читая пост, дал сбой

[Sonic the Hedgehog]

ФСЁ!, Иду завтра учебник по VB брать!
а то уже на форуме смеютца надо мной

[Sonic the Hedgehog]

А код

Код: Выделить всё

Shell ("cmd /X /C del " & s & "/1.txt")


Правельный или нет?
а скажиет правельный [/code]

[Amed]

А попробовать слабо?

Конечно, правильный!

[Sonic the Hedgehog]

А вот и нет! Не работает!