Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Dim lvi As ListViewItem
Dim DirInfo As New DirectoryInfo("Locatie van map op bureaublad hier")
lv1.BeginUpdate()
For Each ShortCut As FileInfo In DirInfo.GetFiles("Hier eventueel een filter als je alleen één type bestand wil ophalen") '("*.ext")
lvi = New ListViewItem
lvi.Text = Path.GetFileNameWithoutExtension(ShortCut.Name)
ilIcons.Images.Add(Icon.ExtractAssociatedIcon(ShortCut.FullName).ToBitmap)
lvi.ImageIndex = ilIcons.Images.Count - 1
lv1.Items.Add(lvi)
Next
lv1.EndUpdate()
Dim fbd As New FolderBrowserDialog
If fbd.ShowDialog = DialogResult.OK Then
Dim lvi As ListViewItem
Dim DirInfo As New DirectoryInfo(fbd.SelectedPath)
lv1.BeginUpdate()
For Each ShortCut As FileInfo In DirInfo.GetFiles("*.lnk")
lvi = New ListViewItem
lvi.Text = Path.GetFileNameWithoutExtension(ShortCut.Name)
ilIcons.Images.Add(Icon.ExtractAssociatedIcon(ShortCut.FullName).ToBitmap)
lvi.ImageIndex = ilIcons.Images.Count - 1
lv1.Items.Add(lvi)
Next
lv1.EndUpdate()
End If
Label1.Text = lv1.SelectedItem
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.