Windows kør...

Shell \"c:\\windows\\notepad.exe\", vbNormalFocus

Denne linie virker.

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

Const SW_SHOWNORMAL = 1

Private Sub Form_Load()
    ShellExecute Me.hwnd, vbNullString, \"notepad.exe\", vbNullString, \"C:\\\", SW_SHOWNORMAL
End Sub

jamen jeg vil oxo kunne se i directories

hvad ???

ja, hvad ???

han vil vidst gerne have at vide hvordan man laver sådan en \"Open\" - Dialogbox så han kan åbne et program derfra! Tror jeg nok!

Aner ikke hvad han skal bruge det til! :D

jeg skal bruge sådan at hvis man skriver c:\\ ..så åbner den c:\\ ..hvis man skriver c:\\test.exe ..så åbner den test.exe...

hmm...

\'----------------------------------- Form1 -----------------------------------
\'Tilføje 2 CommandButton på Formel (eks. Form1) og insæt denne koden
\'-----------------------------------------------------------------------------
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

Public Function RunCommand(cmd As String) \'ShellExecute Function
  ShellExecute Me.hwnd, vbNullString, cmd, vbNullString, \"\", 1
End Function

Private Sub Command1_Click() \'CommandButton1
  RunCommand \"C:\\\" \'åbner C:\\ i et vindue
End Sub

Private Sub Command2_Click() \'CommandButton2
  RunCommand \"notepad.exe\" \'åbner Notesblok
End Sub
\'----------------------------------- Form1 -----------------------------------