' 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