เปิดไฟล์ทั้งหมดที่ขึนต้นด้วย
กระทู้เก่าบอร์ด อ.Yeadram

 903   1
URL.หัวข้อ / URL เปิดไฟล์ทั้งหมดที่ขึนต้นด้วย

ผมอยากเขียน Code แบบนี้ครับ อาจารช่วยผมที่

อยากให้กดปุ่มที่ชื่ว่า Botton แล้วให้เปิดไฟล์ Excel ทั้งหมด
ในไดร์   D:\ ทุกไฟล์ที่ขึ้นต้นด้วยคำว่า Test จะเขียน Code ยังไงครับ
ไฟล์อาจจะ Test001.xls ,Test-003-A.xls,TestSeed.xls
โดย: วิษณุ เมื่อ: 27 ก.พ. 2557 , 11:22

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R18168
    Dim strFile As String
    Dim strPath As String
    strPath = "D:\"    'แทนค่าพาธที่ต้องการ
    strFile = Dir(strPath, vbNormal)
    Do While strFile <> ""
        If strFile Like "Test*" Then    'หาชื่อไฟล์ที่ขึ้นต้นด้วยคำว่า Test
            CreateObject("WScript.Shell").Run """" & strPath & strFile & """"
        End If
        DoEvents
        strFile = Dir()
    Loop


ประมาณนี้ครับ ปรับใช้ดู
โดย: TTT เมื่อ: 27 ก.พ. 2557 , 14:29
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3484s