Snasui Excel Forum

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

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

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

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

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

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