Public Class Form1
 
    ReadOnly DefaultFolder As String = IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Screenshots")
 
    Public FolderDialog As New FolderBrowserDialog With {.SelectedPath = DefaultFolder}
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Shown
 
        MsgBox(FolderDialog.SelectedPath) ' Esta es la ruta que quieres, al iniciar el programa.
 
        If FolderDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            MsgBox(FolderDialog.SelectedPath) ' Y esta es después, cuando el usuario la elige.
        End If
 
        ' Crear snapshot en {FolderDialog.SelectedPath}
        ' Sin variables de por medio.
 
    End Sub
 
End Class

Private Sub CheckFolder_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckFolder.CheckedChanged
        If CheckFolder.Checked = True Then
            FolderBrowserDialog1.ShowDialog()
            LabelFolder.Text = FolderBrowserDialog1.SelectedPath() 'Aqui va la ruta de la carpeta que se selecciono
        Else
            LabelFolder.Text = Folder 'Si por algun motivo quiero usar nuevamente la carpeta "Screenshots". Pero la elimine por accidente
            CheckFolder.Checked = False
            Folder = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Screenshots")
            If Not Directory.Exists(Folder) Then
                Directory.CreateDirectory(Folder)
            End If
        End If
    End Sub
 

CheckFolder.Checked = False

If CheckFolder.Checked = True Then
          bla bla bla
      Else ' Else, sólo puede haber una condicion contradictoria en un Boolean, y es "False", "CheckFolder.Checked = False"
          CheckFolder.Checked = False ' Así que esto no hace nada, porque si se procesa esta parte del bloque significa que la propiedad "Checked" ya está en "False".
End If

#Region " NAudio "
 
Public Class NAudio_Helper
 
    ' [ NAudio ]
    '
    ' // By Elektro H@cker
    '
    ' Instructions:
    ' 1. Add a reference for the "NAudio.dll" file into the project.
    '
    ' Examples:
    '
    ' Dim Stream As NAudio.Wave.WaveFileReader = New NAudio.Wave.WaveFileReader(File)
    '
    ' Set_Volume(Stream, 0.5)
    ' Play_Sound(Stream, 1)
    ' Play_Sound(My.Resources.AudioFile)
    ' Play_Sound("C:\File.wav")
 
 
    ' Play Sound (File)
    Private Sub Play_Sound(ByVal File As String, _
                           Optional ByVal Volume As Single = Nothing)
 
        Dim Wave As New NAudio.Wave.WaveOut
 
        Select Case File.Split(".").Last.ToLower
            Case "aiff"
                Wave.Init(New NAudio.Wave.AiffFileReader(File))
            Case "mp3"
                Wave.Init(New NAudio.Wave.Mp3FileReader(File))
            Case "wav"
                Wave.Init(New NAudio.Wave.WaveFileReader(File))
            Case Else
                Wave.Init(New NAudio.Wave.BlockAlignReductionStream(NAudio.Wave.WaveFormatConversionStream.CreatePcmStream(New NAudio.Wave.AudioFileReader(File))))
        End Select
 
        If Not Volume = Nothing Then Wave.Volume = Volume
        Wave.Play()
 
    End Sub
 
    ' Play Sound (MemoryStream)
    Private Sub Play_Sound(ByVal Stream As IO.MemoryStream, _
                           Optional ByVal Volume As Single = Nothing)
 
        Dim Wave As New NAudio.Wave.WaveOut
        Wave.Init(New NAudio.Wave.BlockAlignReductionStream(NAudio.Wave.WaveFormatConversionStream.CreatePcmStream(New NAudio.Wave.WaveFileReader(Stream))))
        If Not Volume = Nothing Then Wave.Volume = Volume
        Wave.Play()
 
    End Sub
 
    ' Play Sound (Unmanaged MemoryStream)
    Private Sub Play_Sound(ByVal Stream As IO.UnmanagedMemoryStream, _
                           Optional ByVal Volume As Single = Nothing)
 
        Dim Wave As New NAudio.Wave.WaveOut
        Wave.Init(New NAudio.Wave.BlockAlignReductionStream(NAudio.Wave.WaveFormatConversionStream.CreatePcmStream(New NAudio.Wave.WaveFileReader(Stream))))
        If Not Volume = Nothing Then Wave.Volume = Volume
        Wave.Play()
 
    End Sub
 
    ' Play Sound (NAudio Stream)
    Private Sub Play_Sound(ByVal NAudio_Stream As Object, _
                           Optional ByVal Volume As Single = Nothing)
 
        Dim Wave As New NAudio.Wave.WaveOut
        Wave.Init(NAudio_Stream)
        If Not Volume = Nothing Then Wave.Volume = Volume
        Wave.Play()
 
    End Sub
 
    ' Set Volume (NAudio Stream)
    Private Function Set_Volume(ByVal NAudio_Stream As Object, ByVal Volume As Single) _
    As NAudio.Wave.WaveOut
 
        Dim Wave As New NAudio.Wave.WaveOut
        Wave.Init(NAudio_Stream)
        Wave.Volume = Volume
        Return Wave
 
    End Function
 
End Class
 
#End Region

Play_Sound(my.resources.WavFile)

    ' Play Sound
    Private Sub Play_Sound(ByVal Sound As IO.UnmanagedMemoryStream)
        Dim Wave1 As New NAudio.Wave.WaveOut
        Wave1.Init(New NAudio.Wave.BlockAlignReductionStream(NAudio.Wave.WaveFormatConversionStream.CreatePcmStream(New NAudio.Wave.WaveFileReader(Sound))))
        Wave1.Volume = Soundvolume ' Single num
        Wave1.Play()
    End Sub

Set FSO = CreateObject("Scripting.FileSystemObject")
 
For Each File In FSO.GetFolder(".\").Files
	If LCase(FSO.GetExtensionName(File.Name)) = "qpf" then
		Wscript.echo(File.Name)
	end if
Next