Code LIST FILE ใน Folder

[godman]

สวัสดีครับ ผมมีคำถามมารบกวนอีกแล้วครับ
คือผมใช้ code ข้างล่างนีในการ list file ใน Folder โดยวาง address ของ Folder ไว้ในช่อง C7 ตาม File แนบแต่ว่าถ้าผมอยากเปลี่ยน Code นี้เพื่อให้ list ธTitle และ Date Creat ด้วยผมลองเปลี่ยนจาก MyFile.Size เป็น MyFile.Title แล้วก็ยังไม่ทำงานตามที่ต้องการครับ

Code: Select all

Dim iRow

Sub ListFiles()
    iRow = 11
    Call ListMyFiles(Range("C7"), Range("C8"))
End Sub

Sub ListMyFiles(mySourcePath, IncludeSubfolders)
    Set MyObject = New Scripting.FileSystemObject
    Set mySource = MyObject.GetFolder(mySourcePath)
    On Error Resume Next
    For Each myFile In mySource.Files
        iCol = 2
        Cells(iRow, iCol).Value = myFile.Path
        iCol = iCol + 1
        Cells(iRow, iCol).Value = myFile.Name
        iCol = iCol + 1
        Cells(iRow, iCol).Value = myFile.Size
        iCol = iCol + 1
        Cells(iRow, iCol).Value = myFile.DateLastModified
        iRow = iRow + 1
    Next
    If IncludeSubfolders Then
        For Each mySubFolder In mySource.SubFolders
            Call ListMyFiles(mySubFolder.Path, True)
        Next
    End If
End Sub

[snasui]

ลองปรับ Code จาก Link นี้ครับ http://www.vbaexpress.com/kb/getarticle.php?kb_id=405

[godman]

สุดยอดมากครับ มีทุกสิ่งที่ต้องการ ขอบคุณครับ

[godman]

แต่ว่าไม่เห็น ปุ่ม Register เลยครับ อยากจะสมัคร แม้จะเสียตังค์ก็ตาม ถ้าไม่เยอะมาก 555

[snasui]

Register อยู่หน้านี้ครับ http://www.vbaexpress.com/portal.php