VB6 Функция Shell - Недопустимый вызов процедуры или аргумент оболочка

Question

Я пытаюсь запустить функцию оболочки, чтобы открыть файл с помощью Notepad.exe

Я получаю сообщение об ошибке «недопустимый вызов процедуры или аргумент оболочки» при попытке открыть файл.

Sub OpenTextFile(textfile$) 
    Dim txtapp$, arg$ 
    txtapp = "Notepad.exe" 
    textfile = "C:\Users\ADMIN\Desktop\USA - FLNG\modelout\SUMMER.CFS" 
    arg = Trim$(txtapp & " " & Chr$(34) & Trim$(textfile) & Chr$(34)) 
    ierr = Shell(arg, vbNormalFocus) 
End Sub 

Любые идеи?

Answer 1

Это работает для меня:

Sub OpenTextFile(textfile As String) 

Const txtapp As String = "Notepad.exe" 
Dim arg As String 
Dim ierr As Double 

    arg = Trim$(txtapp & " " & Chr$(34) & Trim$(textfile) & Chr$(34)) 
    ierr = Shell#(arg, vbNormalFocus) 

End Sub 

Type-declaration characters считается унаследованным кодом, поэтому я избегаю их заявлений. (Однако я использовал их с Shell/Trim/Chr, чтобы избежать возвращаемого типа Variant.)

Я считаю, что ошибка, с которой вы столкнулись, связана с тем, что ваш путь к файлу содержит пробелы. Попробуйте WSHOM вместо:

Sub OpenTextFile(textfile As String) 
Dim oShell As Object 

    Set oShell = GetShell 

    If Not oShell Is Nothing Then 
    oShell.Run textfile 
    End If 
End Sub 

Function GetShell() As Object 
    On Error Resume Next 
    Set GetShell = CreateObject("WScript.Shell") 
End Function 

Answer 2

Я думаю, что есть файл Notepad.exe находится рядом с вашим ехе приложения