Forum Discussion
karkadil
14 years agoValued Contributor
Here is a function and usage example
Sub LaunchApp(appname)
Dim i
If TestedApps.Count > 0 Then
For i = 0 To TestedApps.Count
if TestedApps.Items(i).FullFileName = appname Then
TestedApps.Items(i).Run
Exit Sub
End If
Next
End If
TestedApps.Add(appname)
TestedApps.Items(appname).Run
End Sub
' usage example
Sub Main
LaunchApp "C:\WINDOWS\notepad.exe"
End Sub
Sub LaunchApp(appname)
Dim i
If TestedApps.Count > 0 Then
For i = 0 To TestedApps.Count
if TestedApps.Items(i).FullFileName = appname Then
TestedApps.Items(i).Run
Exit Sub
End If
Next
End If
TestedApps.Add(appname)
TestedApps.Items(appname).Run
End Sub
' usage example
Sub Main
LaunchApp "C:\WINDOWS\notepad.exe"
End Sub
Related Content
- 10 months agojamescollett
- 6 months agormrosen6
Recent Discussions
- 2 days agoMW_Didata