Open Folder Path Using Explorer GUI

' Open Folder Path containing New Shadow Copy of Save File and Highlight File in Windows Explorer GUI
'  by SemlerPDX Mar2020
'  VETERANS-GAMING.COM


Imports Microsoft.VisualBasic
Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Data
Imports System.Drawing
Imports System.Diagnostics
Imports System.Windows.Forms
Imports System.Linq
Imports System.Xml.Linq
Imports System.Threading.Tasks
Imports System.Diagnostics.Process.Start

Public Class VAInline
    dim avcsShadowCopyPath as string
    dim avcsTimestamp as string
    dim avcsProfile as string = "core"

    Public Sub Main()

        if ((VA.GetText("AVCS_ACTIVE_PROFILE")) IsNot nothing)
            avcsProfile = VA.GetText("AVCS_ACTIVE_PROFILE")
        end if

        if ((VA.GetText("~avcs_shadow_copy_path")) IsNot nothing)
            avcsShadowCopyPath = VA.GetText("~avcs_shadow_copy_path")
            if ((VA.GetText("AVCS_TIMESTAMP")) IsNot nothing)
                avcsTimestamp = VA.GetText("AVCS_TIMESTAMP")
                VA.SetText("AVCS_TIMESTAMP", nothing)
                avcsShadowCopyPath = avcsShadowCopyPath.ToString() + "\avcs_" + avcsProfile.ToLower() + "_save_ShadowCopy_" + avcsTimestamp.ToString() + ".txt"
                Process.Start("explorer.exe", "/select," & avcsShadowCopyPath)
            end if
        end if

    End Sub
End Class