by DiskJunky (16 Submissions)
Category: Windows System Services
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Thu 14th December 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
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
No comments have been posted about This is actually part of an unattended app. It open the explorer window into the applicationd dir. Why not be the first to post a comment about This is actually part of an unattended app. It open the explorer window into the applicationd dir.