Liste

[danfredr]

hei. Nå har jeg lagt inn denne koden i Command1 som Clikk

 

File1.Path = "c:\mp3"

 

det funker perfekt, får liste over alle filene i c:\mp3

 

men hvordan skal jeg fixe son at når jeg

dubbel klikker på en fil i list1 så opnes filen i korekt program ?

 

Hvordan får jeg dette til ?

 

Takker får svarene på fårhond :nice:

[aadnk]

Først legger du til denne koden i begynnelsen av koden til formen din:

 

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Const SW_SHOWNORMAL = 1

 

Så legger du denne koden inn:

 

Private Sub File1_Click()

ShellExecute Me.hwnd, vbNullString, File1.Path & IIf(Right(File1.Path, 1) = "\", "", "\") & File1.FileName, vbNullString, "C:\", SW_SHOWNORMAL

End Sub

 

Dette skulle virke.