Lệnh Dir bị lỗi khi tìm kiếm folder trên onedrive

[yukimura89]

Xin chào mọi người, mình là thành viên mới, mong mọi người giúp đỡ ạ.
Chuyện là mình làm 1 cái file excel có chứa 1 userform để tổng hợp thông tin triển khai công việc (như hình "tong quan"). Trong hình là 2 list box, listbox 1 mình không bị gặp vấn đề gì khi lấy thông tin, tuy nhiên đối với listbox số 2 thì khi làm trên ổ máy tính hoặc google drive thì mọi thứ rất bình thường, nhưng khi chuyển qua onedrive thì khi chạy bị lỗi Runtime error '52' "bad file name or number".
Đoạn code bị lỗi như sau:


Dim myFile As String, myfolder As String

myfolder = ThisWorkbook.path & "\" & Me.cb_project <<<(Cái Me.cb_project là tên dự án trong dòng "Chọn dự án")

'Cap nhat cac file PR cua du an vao tab PR
lb_PR_list.Clear <<< ( cái lb_PR_list chính là listbox số 2)
myFile = Dir(myfolder & "\PYCVT" & "\*-PR*.xlsm") <<<< Đây là dòng bị báo lỗi khi dùng trên onedrive. Google drive chạy bình thường
Do While myFile <> ""
lb_PR_list.AddItem myFile
myFile = Dir
Loop

Kết quả trả về trong listbox 2 là danh sách các file .xlsm có chứa cụm "-PR".

Mong mọi người giúp mình giải pháp khắc phục ạ.
Cảm ơn mọi người.

 

[befaint]

onedrive. Google drive

Hai cái này trông hình thù như thế nào bạn? Có xinh không?

 

[yukimura89]

Mình không hiểu ý bạn lắm