Advertisement
Advertisement
| 05.27.2008 at 12:15PM PDT, ID: 23435994 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: |
Protected Sub Select_a_Template_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Select_a_Template.Click
Dim openfile As New Windows.Forms.OpenFileDialog
openfile.CheckFileExists = True
openfile.CheckPathExists = True
openfile.Filter = "Excel Files (*.xls)|*.xls|Other Files|*.*"
openfile.ShowDialog()
If openfile.FileName <> "" Then
Me.Import_FileLabel.Text = openfile.FileName.ToString()
Else
Me.Import_FileLabel.Text = "No file currently selected."
End If
End Sub
|