• Home
 · 
• Files/File Controls/Input/Output
 · 
• open muliple files simulaneouly

open muliple files simulaneouly

open muliple files simulaneouly

Rate open muliple files simulaneouly

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'make sure both of these files or directories exist
Private Sub Form_Load()
'open multiple files simulaneously
On Error Goto Trouble:
Dim FileArray(1 To 2) As String
Dim r As Double
Dim i As Integer
'store files in array
FileArray(1) = "notepad.exe"
FileArray(2) = "explorer " & "C:\MSOffice\Office"
For i = 1 To 2
r = Shell(FileArray(i), vbNormalFocus)
Next i
Trouble:
Msgbox Err.Description
End Sub