Želim da kad se 2x klikne na fajl da otvori to što je izabrano.
Pokusao sam ovako:
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub drv1_Change()
Dir1.Path = drv1.Drive
End Sub
ali mi ovo ne valja...
Private Sub File1_DblClick()
Dim RetVal
RetVal = Shell(File1.Path & "\" & File1.Name, 6)
End Sub
Hvala
GoGy