Problem mit function ShellExecute
chris
noch eine frage :(
Sorry aber ich weiß nicht weiter.
Könnt ihr mir helfen ?
Ich versuche mit diesem Makro eine datei zu öffnen.
Aber es geht keine Datei auf.
Die textdatei test.txt ist vorhanden auf c:
Das Makro läuft durch aber nichts passiert.
was kann der fehler sein ?
Vielen Dank
Option Explicit
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
Sub neu()
Dim strTemp
Dim SHOWMAXIMIZED
Dim strdatei
strdatei = "c:\test.txt"
ShellExecute 0, "Open", strdatei, "", "", SHOWMAXIMIZED
End Sub
Anzeige