C#, VB OpenFileDialogMutilFile

     วันนี้ก็ของเสนอเกี่ยวกับการสร้าง OpenFileDialog แบบ Multi File มาใช้ในการเปิด File ของเราพร้อมกันหลายๆ Fileแบบเนียนๆ กันนะครับ ไปชมตัวอย่าง Source Code กันเลยครับ

Source Code C#

//Namespace
//using System.Windows.Forms;

//String Array
string[] strArrPath = null;

//สร้าง object OpenFileDialog.
OpenFileDialog objOpenFile = new OpenFileDialog();

//Title ของ Dialog.
objOpenFile.Title = "C# Open File Dailog";

//Set Select Multi Fild
objOpenFile.Multiselect = true;

//กรองนามสกุลไฟล์
objOpenFile.Filter = "Text Files|*.txt|ALL Files|*.*";

//Open Dialog, ทำงานเมื่อกดปุ่ม OK
if (objOpenFile.ShowDialog() == DialogResult.OK)
{
          //Get File Path
          strArrPath = objOpenFile.FileNames;

          //นำ Path ที่ได้ไปแสดงบน TextBox
          for (int i = 0; i < strArrPath.Length; i++)
          {
               textBox1.Text += strArrPath[i] + "\r\n";
          }
}
else
{
          textBox1.Text = string.Empty;
}

Source Code VB

'Namespace
'Imports System.Windows.Forms

'String Array
Dim strArrPath As String()

'สร้าง object OpenFileDialog.
Dim objOpenFile = New OpenFileDialog()

'Title ของ Dialog.
objOpenFile.Title = "VB Open File Dailog"

'Set Select Multi Fild
objOpenFile.Multiselect = True

'กรองนามสกุลไฟล์
objOpenFile.Filter = "Text Files|*.txt|ALL Files|*.*"

'Open Dialog, ทำงานเมื่อกดปุ่ม OK
If objOpenFile.ShowDialog() = DialogResult.OK Then

          'Get File Path
          strArrPath = objOpenFile.FileNames

          'นำ Path ที่ได้ไปแสดงบน TextBox
          For index As Integer = 0 To strArrPath.Length - 1
               textBox1.Text &= strArrPath(index) & vbCrLf
          Next
Else
          textBox1.Text = String.Empty
End If

     ก็อย่างที่เห็นนะครับ เมื่อเราเลือก File ที่ทำการเปิด เราก็จะได้ Path ของ File หลายๆ File พร้อมๆกันเพื่อนำไปใช้ต่อไป

ผิดพลาดประการใดก็ติชมแก้ไขกันนะครับ
ขอบคุณครับ