VB.NET Shell


To totally unlock this section you need to Log-in


Login

Another application can be run from a VB.NET program. Using the Shell function, we specify a target executable and any command-line arguments needed. We learn ways to use the Shell function in practical situations.

Example

To begin, we specify a target application that happens to be stored in a specific location. If your computer has no procexp.exe file stored on the C: volume, this will fail. You can change the file name to one that exists.

Next: when this program executes, the C:\procexp.exe program will be started and brought to focus on the computer.

Program that uses Shell function: VB.NET
Module Module1

Sub Main()
' Run this specific executable on the shell.
' ... Specify that it is focused.
Shell("C:\procexp.exe", AppWinStyle.NormalFocus)
End Sub
End Module

Example 2

How can we use Shell to run a command-line program that performs some other action? This is a practical way of using Shell. This example uses the 7-Zip executable program, which performs compression and decompression.

Here: this command line compresses all the text files on the C volume into a file called files.7z.

Program that runs 7za.exe in Shell: VB.NET
Module Module1

Sub Main()
' Run the 7-Zip console application to compress all txt files
' ... in the C:\ directory.
Dim id As Integer = Shell("C:\7za.exe a -t7z C:\files.7z C:\*.txt")
Console.WriteLine(id)
End Sub
End Module

Return value: the program also demonstrates the return value of the Shell function. This is the process ID of the program that was started. In this example, the 7za.exe program was started as process #1296.

Example 3

The Shell function does not work if you only pass the file name you want to open to it. Instead, you need to specify the application you want to open the file with. In this example, we use Notepad to open a target text file.

Also: you could use Microsoft Word or other applications located on the disk to open files.

Program that uses notepad to open file: VB.NET
Module Module1

Sub Main()
' Use the notepad program to open this txt file.
Shell("notepad C:\file.txt", AppWinStyle.NormalFocus)
End Sub
End Module