åbne externt program

Place this in a module
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_HIDE = 0
Public Const SW_SHOW = 5


Then this in a buttons on click event for example:

Dim result As Integer

result = ShellExecute(0, \"Open\", \"C:\\1.xls\", \"\", \"\", SW_SHOW

1/ Hvad skal modulet hedde
2/ JEg får en variabel not found under result = ShellExecute(0, \"Open\", \"C:\\1.xls\", \"\", \"\", SW_SHOW

Jeg giver gerne 30 point hvis du lige sender en lille eksempel database ( version 97 ) til nt@solar.dk

hvorfor kan man ikke bare bruge shell alene uden moduler...???

noegt ala

Shell \"d:\\1.xls\"

hmmm.

shell kan åbenbart kun åbne *.exe filer...

hva\' så mon...????

Its on the way!

du kan prøve detter det plejer at virke.

shell \"c:\\programmer\\ofice\\excel.exe d:\\1.xls\"

du fortæller her med hvilket program du bruger til at åbne filen med....