| Вопрос: Как получить все ярлыки в папке и ...? | Добавлено: 20.04.07 14:24 |
Автор вопроса:  »VladikComper« | Web-сайт: vladikcomper.narod.ru | ICQ: 419668582 |
|
Я писал свою программу, писал и вдруг наткулся на припятствие!
Не знает ли кто код, который отыщет все ЯРЛЫКИ в папке (*.LNK) и запишет их в List1, FileListBox не годится! И еще, как же мне узнать, на какой файл ссылается ярлык? |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 20.04.07 16:13 |
FileName = Dir(sDir)
 o While FileName <> ""
If Right$(FileName, 3) = "lnk" Then List1.AddItem FileName FileName = Dir Loop Проще открыть файл для чтения и распарсим текст вытянуть как нибуть там путь... Другой вариант, ботать как lnk создается через winapi, там заполняется структура какая-то, она тебе и нужна.. |
||
|
Номер ответа: 2 Автор ответа: intel-DX ICQ: 445091742 Вопросов: 4 Ответов: 169 |
Профиль | | #2 | Добавлено: 20.04.07 16:22 |
|
Создаеш FileListBox, но скрытый Visible = False, Устанавлеваеш DIR, Mask of File
Создаеш свой List1 & Дальше File1->List1 SUB-oм Private Sub Form_Load() For i = 1 To File1.ListCount File1.ListIndex = i - 1 List1.AddItem File1.FileName, i - 1 Next i End Sub |
||
|
Номер ответа: 3 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 20.04.07 17:32 |
| ужос... | ||
|
Номер ответа: 4 Автор ответа: intel-DXICQ: 445091742 Вопросов: 4 Ответов: 169 |
Профиль | | #4 | Добавлено: 20.04.07 18:22 |
| Зато Р А Б О Т А Е Т! | ||
|
Номер ответа: 5 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 20.04.07 19:09 |
|
ужос<>работает
ужос=работает_криво 
|
||
|
Номер ответа: 6 Автор ответа: intel-DXICQ: 445091742 Вопросов: 4 Ответов: 169 |
Профиль | | #6 | Добавлено: 20.04.07 20:03 |
| Я непонял, а что не понравилось. И работает нормально | ||
|
Номер ответа: 7 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #7 | Добавлено: 20.04.07 21:22 |
| сравни мой код и твой, если ты невидищ между ними разницы, и тебе главное чтобы оно работало - у меня нет желания тебя в этом переубеждать. Всёравно это вопрос времени, рано или поздно поймёшь | ||
|
Номер ответа: 8 Автор ответа: altrego ICQ: 244-611-814 Вопросов: 3 Ответов: 28 |
Web-сайт: Профиль | | #8 | Добавлено: 21.04.07 20:16 |
|
А ты не переубеждай, а скажи, почему ужас...
|
||
|
Номер ответа: 9 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #9 | Добавлено: 22.04.07 00:17 |
| Например, потому что использует дополнительный контрол там, где он совершенно не нужен. | ||
|
Номер ответа: 10 Автор ответа: altregoICQ: 244-611-814 Вопросов: 3 Ответов: 28 |
Web-сайт: Профиль | | #10 | Добавлено: 22.04.07 02:08 |
| Угу, + нечитабельность... | ||
Страница: 1 |