01.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
02. Dim OpenFile As New OpenFileDialog()
03. For Each drv In IO.DriveInfo.GetDrives
04. If drv.IsReady And drv.DriveType = IO.DriveType.Removable Then
05. OpenFile.InitialDirectory = drv.Name
06. OpenFile.FileName = ""
07. OpenFile.Filter = "Text files (*.txt)|*.txt"
08. Dim Res As System.Windows.Forms.DialogResult = OpenFile.ShowDialog()
09. If Res = System.Windows.Forms.DialogResult.Cancel Then Return
10. txtFile.Text = OpenFile.FileName
11. End If
12. Next
13. End Sub
