Hallo,
ich habe folgendes Problem:
Ich habe hier einen code mit dem mir die Icons (.exe)des Ordners angezeigt werden, dies geht aber ergend wie nicht.
Icons werden mittels eines Listview ( Imagelist dargestellt )
Kennt jemand den fehler.
weiteres Problem : beim klicken des icons soll die exe ausgeführt werden.
ÜBER hilfe bin ich sehr dankbar
GRUß
Peter
ich habe folgendes Problem:
Ich habe hier einen code mit dem mir die Icons (.exe)des Ordners angezeigt werden, dies geht aber ergend wie nicht.
Icons werden mittels eines Listview ( Imagelist dargestellt )
Kennt jemand den fehler.
VB.NET-Quellcode
- Imports System.IO
- Imports System.DrawingPublic Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim dirInfo As DirectoryInfo
- Dim fileInfo As FileInfo
- Dim exePath As StringDim exeIcon As Icon
- dirInfo = New DirectoryInfo("c:\program files\test\")For Each fileInfo In dirInfo.GetFiles
- If fileInfo.Extension = String.Empty Then
- Else
- exePath = GetAssociatedProgram(fileInfo.Extension)
- exeIcon = Drawing.Icon.ExtractAssociatedIcon(exePath)
- If ImageList1.Images.ContainsKey(exePath) Then
- Else
- ImageList1.Images.Add(exePath, exeIcon)
- End If
- ListView1.Items.Add(fileInfo.Name, exePath)
- End If
- Next
- End SubPublic Function GetAssociatedProgram(ByVal FileExtension As _
- String) As StringDim objExtReg As Microsoft.Win32.RegistryKey = _
- Microsoft.Win32.Registry.ClassesRootDim objAppReg As Microsoft.Win32.RegistryKey = _
- Microsoft.Win32.Registry.ClassesRoot
- Dim strExtValue As String
- TryIf FileExtension.Substring(0, 1) <> "." Then _FileExtension = "." & FileExtension
- objExtReg = objExtReg.OpenSubKey(FileExtension.Trim)strExtValue = objExtReg.GetValue("").ToString
- objAppReg = objAppReg.OpenSubKey(strExtValue & _
- "\shell\open\command")
- Dim SplitArray() As StringSplitArray = Split(objAppReg.GetValue(Nothing).ToString, """")
- If SplitArray(0).Trim.Length > 0 ThenReturn SplitArray(0).Replace("%1", "")
- ElseReturn SplitArray(1).Replace("%1", "")
- End If
- Catch
- Return ""
- End TryEnd Function
- End Class
weiteres Problem : beim klicken des icons soll die exe ausgeführt werden.
ÜBER hilfe bin ich sehr dankbar
GRUß
Peter
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „vb2011“ ()