Nhờ các anh giải thích đoạn code trên sai ở chỗ nào (1 người xem)

[lhthai]

File dữ liệu có 3 file nhưng khi lấy chỉ thấy có 2 file.

Sub Link()
Dim Arr, i As Long, n As Long, Count As Long
Dim Dic As Object
On Error Resume Next
Set Dic = CreateObject("Scripting.FileSystemObject")
    Arr = FilesFoldersList(Sheet1.TextBox1, True, "*.*", True)
        Count = UBound(Arr) + 1
        Range("B9:G65536").Clear
        For i = 1 To Count
        With Range("B9").Offset(i)
          .Offset(, 0) = i
          .Offset(, 1) = Dic.GetFile(Arr(i)).Name
          .Offset(, 2) = Int(Dic.GetFile(Arr(i)).Size / 1024)
          .Offset(, 3) = Dic.GetFile(Arr(i)).Type
          .Offset(, 4) = Dic.GetFile(Arr(i)).DateCreated
          .Offset(, 5).Hyperlinks.Add .Offset(, 5), Arr(i), , , "Click mo File"
        End With
        Next
End Sub

Em cũng không hiểu cách sử dụng Dic nên mượn code trên diễn đàn copy chỉnh sữa từ từ
Nhờ các anh giải thích đoạn code trên sai ở chỗ nào.

 

[lhthai]

đã chỉnh sữa được rồi

Sub Link()
Dim Arr, i As Long, n As Long, Count As Long
Dim Dic As Object
On Error Resume Next
Set Dic = CreateObject("Scripting.FileSystemObject")
    Arr = FilesFoldersList(Sheet1.TextBox1, True, "*.*", True)
        Count = UBound(Arr)
        Range("B9:G65536").Clear
        For i = 0 To Count
        With Range("B9").Offset(i)
          .Offset(, 0) = i + 1
          .Offset(, 1) = Dic.GetFile(Arr(i)).Name
          .Offset(, 2) = Int(Dic.GetFile(Arr(i)).Size / 1024)
          .Offset(, 3) = Dic.GetFile(Arr(i)).Type
          .Offset(, 4) = Dic.GetFile(Arr(i)).DateCreated
          .Offset(, 5).Hyperlinks.Add .Offset(, 5), Arr(i), , , "Click mo File"
        End With
        Next
End Sub

 

[VetMini]

Hỏi gì kỳ cục vậy? FilesFoldersList đâu phải là hàm tiêu chuẩn, nếu hỏi thì phải đăng luôn nó lên. Ít nhất phải biết nó trả về cái gì mới biết code sai chỗ nào.

Bạn sửa lại vẫn chưa hẳn đúng. Đúng phải là:
oStart = 1 - LBound(Arr) ' offet to starting point
For i = LBound(Arr) To UBound(Arr)
With Range("B9").Offset(i + oStart)
.Offset(,0) = i + oStart

 

[lhthai]

Hỏi gì kỳ cục vậy? FilesFoldersList đâu phải là hàm tiêu chuẩn, nếu hỏi thì phải đăng luôn nó lên. Ít nhất phải biết nó trả về cái gì mới biết code sai chỗ nào.

Bạn sửa lại vẫn chưa hẳn đúng. Đúng phải là:
oStart = 1 - LBound(Arr) ' offet to starting point
For i = LBound(Arr) To UBound(Arr)
With Range("B9").Offset(i + oStart)
.Offset(,0) = i + oStart

Cám ơn anh chỉ dẫn giúp