[ X-Cite @ 10.09.2004. 15:29 ] @
Idem iz drajva na drajv list i onda iz drajv list na file.
Želim da kad se 2x klikne na fajl da otvori to što je izabrano.

Pokusao sam ovako:

Code:
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...

Code:
Private Sub File1_DblClick()
Dim RetVal
RetVal = Shell(File1.Path & "\" & File1.Name, 6)
End Sub


Hvala
[ Pr[o_O]F @ 10.09.2004. 20:13 ] @
a da probas samo

Code:

shell (file1.path & "\" &  file1.filename)


NaraFski to samo radi s Exe filevima...
pokusaj na

[url] http://www.planet-source-code.com [/url]
ili na:
[url] www.freevbcode.com [/url]
[ X-Cite @ 11.09.2004. 18:13 ] @
E baš šteta da radi samo sa exe fajlovima.

Koju ključnu rječ da upišem da trazim to dalje?
[ vujkev @ 11.09.2004. 19:12 ] @
Evo kljucne shell funkcije
Code:
Shell "rundll32.exe url.dll,FileProtocolHandler " & <naziv fajla sa punim pathom>, vbMaximizedFocus

kao na primer
Code:
Shell "rundll32.exe url.dll,FileProtocolHandler " & App.Path & "\pcu-vreme3.xls", vbMaximizedFocus
[ X-Cite @ 13.09.2004. 13:19 ] @
Hvala pokušaću to...
[ Aleksandar Ružičić @ 13.09.2004. 14:45 ] @
Code:

Public 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

Public Const SW_ShowNormal = 1

Dim l As Long
l = ShellExecute(frmMain.hwnd, "Open", File1.Path & "\" & File1.Name, vbNullString, App.Path, SW_ShowNormal)

to je to