Get Folder Path Using Explorer GUI

' 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