• Home
 · 
• Windows System Services
 · 
• This is actually part of an unattended app. It open the explorer window into the applicationd dir

This is actually part of an unattended app. It open the explorer window into the applicationd dir

This is actually part of an "unattended app". It open the explorer window into the applicationd directory. Works on ANY windows system, even

API Declarations


'Made by Eric O'Sullvan
'1/12/2000
'===================================================


Option Explicit
Option Base 1



Rate This is actually part of an unattended app. It open the explorer window into the applicationd dir

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Main()
'activate explorer

Const Params = "Explorer.Exe /n,/e,"

Dim RetVal As Double
Dim MyPath As String
Dim WinPath As String
Dim ExplorerPath As String

'Me.Visible = False

MyPath = App.Path

WinPath = WindowsDirectory

If Right(WinPath, 2) = ":\" Then
    ExplorerPath = WinPath & Params & MyPath
Else
    ExplorerPath = WinPath & "\" & Params & MyPath
End If

RetVal = Shell(ExplorerPath, vbMaximizedFocus)
End
End Sub