Kako da se otvori izabrani (na DblClick) fajl

Odgovori Nova tema

5 odgovora
3.054 pregleda

Kako da se otvori izabrani (na DblClick) fajl 10.09.2004. u 16:29 · pre 269 meseci #1

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

Potpis

Pozdrav
GoGy

Re: Kako da se otvori izabrani (na DblClick) fajl 10.09.2004. u 21:13 · pre 269 meseci #2

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]

Potpis

[ :. n!t .: ]

Re: Kako da se otvori izabrani (na DblClick) fajl 11.09.2004. u 19:13 · pre 269 meseci #3

E baš šteta da radi samo sa exe fajlovima.

Koju ključnu rječ da upišem da trazim to dalje?

Potpis

Pozdrav
GoGy

Re: Kako da se otvori izabrani (na DblClick) fajl 11.09.2004. u 20:12 · pre 269 meseci #4

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

Potpis

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

Re: Kako da se otvori izabrani (na DblClick) fajl 13.09.2004. u 14:19 · pre 269 meseci #5

Hvala pokušaću to...

Potpis

Pozdrav
GoGy

Re: Kako da se otvori izabrani (na DblClick) fajl 13.09.2004. u 15:45 · pre 269 meseci #6

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

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme