นำรายชื่อไฟล์ในโฟลเดอร์ มาไว้ใน combobox

[UnKnown]

คุณ กิติศักดิ์ Original post

เราจะสามารถนำรายชื่อไฟล์ทั้งหมด มาแสดงใน combo box ได้อย่างไรครับ

[TTT]

สมมุติไฟล์เป้าหมายของคุณอยู่ที่ Path C:\Data\Files\
- ที่ Combobox สมมุติให้ชื่อ Combo1 ให้ใส่โค้ดลงใน Event > On Got Focus

โค๊ด: [Select]

    Dim strFile As String, nFiles As String
    strFile = Dir("C:\Data\Files\", vbNormal)
    Do While strFile <> ""
        nFiles = nFiles & ";" & strFile
        strFile = Dir()
    Loop
    Me.Combo1.RowSource = Mid(nFiles, 2)ประมาณนี้ครับ ปรับใช้ดู

ลืมบอกไปว่าใน Property ของ Combobox ใน Data > Row Source Type ให้กำหนดเป็น Value List

[ปิ่นณรงค์]

เราจะสามารถนำรายชื่อไฟล์ทั้งหมด มาแสดงใน combo box ได้อย่างไรครับ

นำคำสั่งนี้ไปไว้ใน Module ก่อนครับ

โค๊ด: [Select]

Public Function fnGetFilenames(Folder As String) As String

    Dim strPath As String
    Dim strFileName As String
   
    strPath = Replace(Folder & "\", "\\", "\")
   
    strFileName = Dir(strPath & "*")
    Do
        fnGetFilenames = fnGetFilenames & ";" & strFileName
        strFileName = Dir()
    Loop While Len(strFileName) > 0
   
    If Len(fnGetFilenames) > 0 Then fnGetFilenames = Mid(fnGetFilenames, 2)
   
End Function
ตั้งค่า ชนิดแหล่งข้อมูลแถว ของ Combobox เป็น "รายการค่า" หรือ  "Value List" ในเมนูภาษาอังกฤษ
กำหนด Event ของ Combobox เป็น  GotFogus
ดังนี้

โค๊ด: [Select]

Private Sub comboFilenames_GotFocus()
Me.comboFilenames.RowSource = fnGetFilenames("C:\")
End Sub

***หมายเหตุ (ตรง comboFilenames คือชื่อของ Combobox ครับ ส่วนตำแหน่ง ("C:\") สามารถเปลี่ยนตำแหน่งได้ ตัวอย่าง
     

โค๊ด: [Select]

Me.comboFilenames.RowSource = fnGetFilenames("D:\Program\myProgram\")

[UnKnown]

คุณ กิติศักดิ์ Original post

ของอาจารย์ TTT ได้ตรงความต้องการครับ
ของอาจารย์ bookungth ต้องขอลองก่อน

[ปิ่นณรงค์]

ตอนแรกผมไม่เห็นว่าอาจารย์ TTT มาตอบแล้วครับ

ผมนี้ FC อาจารย์ TTT เหมือนกันครับพี่
ส่วนแบบของผมลองดูครับแบบที่แนะนำไปเพื่อใช้งานได้

[TTT]

@bookungth หลายคนหลายความคิดดีแล้วครับ

ปล. ไม่เคยรู้ว่ามี FC ด้วย เคยแต่เป็น FC คนอื่นเหมือนกัน ขอบคุณครับ

[UnKnown]

คุณ กิติศักดิ์ Original post
ขอบพระคุณอาจารย์ทั้งสองครับ ผมก็ FC อาจารย์ TTT เหมือนกัน แต่ของ @bookungth  จะขอติดตามผลงานต่อไปครับ กราบขอบพระคุณทั้งสองท่านเป็นอย่างสูง