Explorer og notepad

Du skal bruge WinAPI funktionen ShellExecute.
Et eksempel:
http://vbaccelerator.nuwebhost.com/codelib/shell/shellex.htm

Hej.

Denne kode åbner 'standard-broser', som lykkeligvis ikke er IE hos mig.

I en form under declarations:

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

Fra mit projekt - hjælpefilen er html:

Private Sub mnuhjelp_Click(Index As Integer)
  If Len(Dir(netsti & "manual60.htm")) > 5 Then
      ret = ShellExecute(Me.hwnd, "Open", netsti & "manual60.htm", "", App.Path, 1)
    Else
      X = MsgBox("Vejledningen 'manual60.htm' findes ikke på " & netsti & "  - hent den på www.jkfsoft.dk", 48, "Medd. fra 'Hjælp'.")
  End If
End Sub

-------------------------------------------------
Særlige mapper:

Dim fso
dim windir, sydir as string
 
Set fso = CreateObject("Scripting.FileSystemObject")
    windir = fso.getspecialfolder(0)
    sydir = fso.getspecialfolder(1)

Du kan også få fat i temp og andre faste mapper, hvilke afhænger af VB-version.

M.v.h. Jørn

Til driis.

Det ser spændende ud men jeg får fejl på  ShellEx "http://www.dogma.demon.co.uk", , , , , Me.hWnd
dvs fejl på me.hwnd Jeg bruger VB6.0 sp6. Men skyldtes det at jeg skal bruge en ref, eller component eller lign?

Har du husket at erklære:

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

?

Jeg kan desværre ikke teste da jeg ikke har VB6 installeret længere. Men kan huske at jeg har brugt funktionen til det samme uden problemer.

Det program eksempel som man kan DL virker fint. Men jeg får fejl når jeg importere modulet eller kopierer scriptet som er på siden.
Jeg har kontrolleret at jeg har det hele med.
Det virker stadigvæk ikke. Jeg har checket at jeg har alle ref. med, så det skulle ej heller være fejlen.
Jeg får fejlen "invalid use of me keyword"...??
Hvad betyder dette?

Jeg har fået me til at fungere....Send et svar driis, så får du de 100 point

Svar