Problem med sti

I stedet for at kalde programmet direkte, kan du bruge nedenstående, som automatisk vil starte det program der er associeret med den fil du vil åbne. F.eks. PDF = Acrobat (Viewer), DOC = Word osv...


#If WIN32 Then


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


Private Declare Function GetDesktopWindow Lib "user32" () As Long
#ELSE


Declare Function ShellExecute Lib "SHELL" (ByVal hwnd%, _
    ByVal lpszOp$, ByVal lpszFile$, ByVal lpszParams$, _
    ByVal lpszDir$, ByVal fsShowCmd%) As Integer


Declare Function GetDesktopWindow Lib "USER" () As Integer
#END If
Private Const SW_SHOWNORMAL = 1


Function StartDoc(DocName As String) As Long
      Dim Scr_hDC As Long
      Scr_hDC = GetDesktopWindow()
      StartDoc = ShellExecute(Scr_hDC, "Open", DocName, "", "C:\", SW_SHOWNORMAL)
End Function


Private Sub Form_Click()
      Dim r As Long
      r = StartDoc("c:\mine dokumenter\pdf\minpdf.pdf")
      Debug.Print "Returkode: "; r
End Sub

Hilsen Fray

Skulle ha været et svar ;-)

Kan du ikke bare angive din shell uden sti til programmet?
Hvis programmet ellers er installeret, må man formode, at "*.pdf" er assiocieret til programmet

Shell "x:\.....\*.pdf", vbNormalFocus

Hej igen,

Nej det vil ikke virke.

Prøv evt. med shell "start x:\dokument.pdf"

Det lille "start" første vil virke på nogle computere (windows udgaver)

Fray

hvad med..

shell "//conputernavn/mappe/dokument.pdf"

eller var det \ og ikke / :D kan jeg ikke lige huske

shell "\\conputernavn\mappe\dokument.pdf"

Tak for det begge to men det bliver Fray der løber med pointene =) Har lige lavet et ekstra spørgsmål, kan være i kan hjælpe mig med det også, det var dumt jeg ikke lige fik det med herinde.... http://www.eksperten.dk/spm/614695

Mvh. UJA