OpenFileDialog 使用方法
Form1.vb |
Private Sub OC(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles OpenToolStripMenuItem.Click OpenFileDialog1.Title = "Open File" OpenFileDialog1.InitialDirectory = ("C:\") OpenFileDialog1.Filter = "csv files (*.csv)|*.csv|All files (*.*)|*.*" If OpenFileDialog1.ShowDialog() = DialogResult.OK Then FileHandle(OpenFileDialog1.FileName) End If End Sub |