Isso é simples, basta colocar uma caixa de texto no form e fazer: Dim seleção As New FolderBrowserDialog()
If seleção.ShowDialog() = Windows.Forms.DialogResult.OK Then
txtCaminho.Text = seleção.SelectedPath
End If
E lembre-se de mudar a linha...
Dim arqs() as String = IO.Directory.GetFiles("c:\pasta", "*.jpg")
... para:
Dim arqs() as String = IO.Directory.GetFiles(txtCaminho.Text, "*.jpg") Certo? ;) Graymalkin Valeu Pela Dica