Select Case FileType
Case ".exe"
System.Diagnostics.Process.Start(FilePath, "")
Case ".asf", ".asx", ".mov", ".avi", ".wav", ".mp3", ".wmv", ".m3u", ".pls", ".mpg", ".ts", ".mpeg", ".wpl", ".vob", ".vdr"
System.Diagnostics.Process.Start(".\programme\tcpmp\player_ce2.exe", FilePath)
Case ".jpg", ".gif", ".bmp", ".png"
OpenImageViewer(FilePath)
Case ".htm", ".html"
temp = FilePath
If Left(FilePath, 1) = "." Then temp = Mid(FilePath, 2)
System.Diagnostics.Process.Start(Konfiguration.ProgrammPfad & "\iesimple.exe", temp)
Case ".txt"
FileExplorerOpenTextEditor(FilePath)
End Select