Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class OpenFileDialogSelectedFileName
public Shared Sub Main
Dim FileDB As New OpenFileDialog()
If (FileDB.ShowDialog() = DialogResult.OK) Then
Console.WriteLine("File: " & FileDB.FileName)
Else
Console.WriteLine("User selected Cancel")
End If
End Sub
End class
|