Pasted

' 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