VBNet - Форум - Список файлов в виде ссылок

Вопрос: Список файлов в виде ссылок Добавлено: 03.02.08 13:26

Автор вопроса: DaaGER | Web-сайт: smartic.ru | ICQ: 329195567

Есть сайт,мне нужно сделать html документ в котором будут ссылки на все файлы. В ручную сохранять всё долго,файлов не так мало...Хотелось бы чтобы можно было сразу в мой html документ вставлять полноценную ссылку типа:

<a href"ссылка">имя</a>

Function Delay(Pause As Single)
Dim Start As Single
Start = Timer
Do While Timer < Start + Pause
DoEvents
Loop
End Function

Private Sub Command1_Click()
List1.Clear
Dim x
IEBroj1.Navigate "http://smartic.ru/load/2"
Delay 3
For i = 1 To IEBroj1.Document.links.length - 1
List1.AddItem IEBroj1.Document.links(i).href
Next
End Sub

Private Sub List1_DblClick()
Text1.Text = "<a href=" + Text2.Text + List1.Text + Text2.Text + ">" + "***" + "</a>"
End Sub

Всё работает,но как помимо ссылки взять и имя,не знаю...

Помогите,может код какой есть или ещё что-нить.
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: Retupa Вопросов: 1 Ответов: 51	Профиль \| Цитата \| #1	Добавлено: 04.02.08 01:10
	Private Sub Command1_Click() Dim Link As MSHTML.HTMLElementCollection 'Подключай MSHTML.TLB 'Dim Link As Variant ' или объявляй Link как вариант For Each Link In WebBrowser1.Document.links Debug.Print "*********" Debug.Print Link Debug.Print Link.Title Debug.Print Link.tagName Debug.Print Link.Target Debug.Print Link.hash Debug.Print Link.host Debug.Print Link.HostName Debug.Print Link.href Debug.Print Link.innerHTML Debug.Print "*********" Next Set Link = Nothing End Sub Ответить

Номер ответа: 2 Автор ответа: DaaGER ICQ: 329195567 Вопросов: 52 Ответов: 67	Web-сайт: smartic.ru Профиль \| Цитата \| #2	Добавлено: 04.02.08 11:37
	Спасибо большое,но что-то нето получается. Сейчас буду разбираться,может что-то понадобится... Ответить

Страница: 1 |