' Get Folder Path in Windows using 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 avcsPath as string = ""
	dim avcsGetPath as new FolderBrowserDialog()
	
	Public Sub Main()
		
		avcsGetPath.RootFolder = Environment.SpecialFolder.Desktop
		avcsGetPath.Description = "AVCS - CORE - Save File System" + vbCrLf + vbCrLf + "Choose a destination for a Shadow Copy of the Save File:"
		
		if (avcsGetPath.ShowDialog() = DialogResult.OK)
			avcsPath = avcsGetPath.SelectedPath
			VA.SetText("~avcs_shadow_copy_path", avcsPath)
		else
			VA.SetText("~avcs_shadow_copy_path", "cancel")
		end if
	
	End Sub
End Class