Конференция VBStreets

**Dex** » 17.01.2005 (Пн) 21:28

У меня тут впоследнее время назрели новые вопросы кто поможет заранее спасибо(извините что моё спасибо в карман не положешь).
1.Как определеть на какой файл ссылается ярлык.
2.Какая есть функция чтоб в TextBox'е отделять один символ.

**Alexanbar** » 17.01.2005 (Пн) 21:37

1. См. раздел Часто задаваемые вопросы
2. Функций для работы со строками очень много, в частости, MID, INSTR,LEFT,Right м прочее

**Kostyan** » 18.01.2005 (Вт) 12:52

Для самого простого случая, когда ярлык ссылается на файл не из сети, можно делать так:

Код: Выделить всё: Dim s As String, SizeI As Integer, Ch As Byte, Offset As Long Open "Ярлык.lnk" For Binary As #1 Get #1, 77, SizeI Get #1, 95 + SizeI, Offset Get #1, 79 + SizeI + Offset, Ch Do While Ch <> 0 s = s & Chr$(Ch) Get #1, , Ch Loop MsgBox "Путь к файлу: " & s Close (1)

Если хочешь более универсальный способ, могу дать пример.

**Andrey Fedorov** » 18.01.2005 (Вт) 13:54

See WshShortcut object - проще уже некуда...

**Dex** » 18.01.2005 (Вт) 16:33

Kostyan как раз то что мне нужно спасибо, тока вот в коде одной строчки не хватает в конце:

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

**Dex** » 18.01.2005 (Вт) 17:26

А какие есть функции чтоб отделять символы в середине слова.Тоесть Left Right и что там было написано выше Alexanbar'ом не подойдёт.

**tyomitch** » 18.01.2005 (Вт) 17:30

Mid подойдёт? :-)

**Dex** » 18.01.2005 (Вт) 17:50

tyomitch что-то у меня с Mid всякая фигня получается

Покажи на примере пожалуйста

**tyomitch** » 18.01.2005 (Вт) 18:07

Код: Выделить всё: Debug.Print Mid("собака", 3, 2) ' "ба"

**Dex** » 18.01.2005 (Вт) 21:37

Ой...Чёрт! :shock:

tyomitch ага всё окей.Я почему то String воспринял как Integer.Поютому то и не фига не получалось

Конференция VBStreets

Ох ярлыки...

Ох ярлыки...

Кто сейчас на конференции