Nhờ giúp code check subfolder

[HUYBOY]

Kính nhờ Anh Chị trong diễn đàn

Em có 1 kính nhờ Anh Chị cho em xin code để check subfolder như file đính kèm ạ

Em đội ơn Anh Chị rất nhiều ạ

 

[bebo021999]

Dùng tạm công thức này nhé:

=LEN(MID(B4,SEARCH("Data\",B4)+4,255))-LEN(SUBSTITUTE(MID(B4,SEARCH("Data\",B4)+4,255),"\",""))-(D4="File")

 

[tranchautrungduong]

Function Check_SubFolder(iLink As String, iFolder As String) As Long
    Dim temp As Variant
    Dim i As Integer
   
    temp = Split(iLink, "\")
   
    For i = LBound(temp) To UBound(temp)
        If temp(i) = "Data" And iFolder = "Folder" Then
            Check_SubFolder = UBound(temp) - i
            Exit For
        ElseIf temp(i) = "Data" And iFolder <> "Folder" Then
            Check_SubFolder = UBound(temp) - i - 1
            Exit For
        End If
    Next i
End Function

xem thử dùng được không bạn! @HUYBOY

 

[befaint]

Ở thớt trước đã nói là file, folder phải kiểm tra đối tượng đó có thật trên ổ đĩa không.
Bởi cái chuỗi không nói lên gì cả, ví dụ: tên folder có thể là "a.pdf, b.xlsx".

 

[HUYBOY]

cảm ơn Anh Chị đã giúp đỡ, em đã làm theo cả 2 cách trên và ok rồi ạ