Source code

import java.io.BufferedReader;
import java.io.IOException;
import java.io.InputStreamReader;
 
/**
 * A Java method to execute and wait for a shell command to complete
 */
public class JavaShellExecute
{
    public static void main(String[] args) throws Exception {
        runShellCommand("open somefile.txt", true);
    }
 
    /**
     * The OPEN command on MacOSX causes the registered file handler to open a file.
     * The START command on Windows causes the registered file handler to open a file.
     *
     * Example param can include a path and file such as:
     * "open yourpath/somefile.txt"
     */
	public static void runShellCommand(String shellCommand, boolean printShellOutput) throws IOException, InterruptedException {
		Runtime runtime = Runtime.getRuntime() ;
		Process shellProcess = runtime.exec(shellCommand) ;
 
		//Only wait for if you need the external app to complete
		shellProcess.waitFor() ;
        
		//You can read the contents of the application's information it is writing to the console
		BufferedReader shellCommandReader = new BufferedReader( new InputStreamReader(shellProcess.getInputStream() ) ) ;
 
		String currentLine = null;
		while ( (currentLine = shellCommandReader.readLine() ) != null )
		{
			if (printShellOutput)
                System.out.println(currentLine);
		}
	}
}

Source code

Dim FN as String,SN as String
Dim ShellExecute As java#lang#Runtime = Java#lang#Runtime.getRuntime
' *** This below is Dimmed for future error checking ***
Dim IOP As Java#lang#Process = Java#lang#Process
Dim IOE As java#io#BufferedReader = Java#io#BufferedReader


FN = "H:\Library\Filename.rtf"
SN = "start " & FN
Debug.Print SN
ShellExecute.exec(SN)

Source code

FN = "H:\Library\Filename.rtf"
SN = Chr(34) & "start " & FN & Chr(34)
Debug.Print SN
ShellExecute.exec(SN)

Source code

FN = "H:\Library\Filename.rtf"
SN =  FN
Debug.Print SN
ShellExecute.exec(SN)

Source code

Public Sub ShellExec(FN As String)
Dim p As java#lang#Process
Dim input As java#io#InputStream
Dim cdata As java#lang#Character
Dim data As Integer

p = Shell("cmd /c start " & FN)
input = p.getInputStream
data = input.read
While data <> -1
   cdata = Cast(data, java#lang#Character)      
   data = input.read
Wend
input.close
p.destroy

End Sub