HjSoft
سه شنبه 14 خرداد 1387, 06:15 صبح
سلام ،
مي خوام كدي داشته باشم كه تمام پوشه ها رو تا آخرين پوشه است پيدا كنه و درون ليست بياره . خودم يك كد دارم ولي زير پوشه ها رو نمياره
On Error Resume Next
For i = 0 To Drive1.ListCount
'Drive List
f = Drive1.List(i)
b = InStrRev(f, ":")
g = Mid(f, 1, b)
If g <> "" And g <> "a:" Then
ls_dr.AddItem (g & "\")
'Drive List
End If
Next i
For g = 0 To ls_dr.ListCount
Dir1.Path = ls_dr.List(g)
For r = 0 To Dir1.ListCount
f = Dir1.List(r)
ls_di.AddItem (f)
Next r
Next g
يك سوال ديگه هم دارم :
چه طوري فايل هاي Hidden رو كه وارد File ها ميكنم رو بشناسم
منظورم اينه كه يك مسير رو به ابزار FILE دادم حالا مي خوام هم Hidden ها و هم عادي ها رو نشون بده !
مي خوام كدي داشته باشم كه تمام پوشه ها رو تا آخرين پوشه است پيدا كنه و درون ليست بياره . خودم يك كد دارم ولي زير پوشه ها رو نمياره
On Error Resume Next
For i = 0 To Drive1.ListCount
'Drive List
f = Drive1.List(i)
b = InStrRev(f, ":")
g = Mid(f, 1, b)
If g <> "" And g <> "a:" Then
ls_dr.AddItem (g & "\")
'Drive List
End If
Next i
For g = 0 To ls_dr.ListCount
Dir1.Path = ls_dr.List(g)
For r = 0 To Dir1.ListCount
f = Dir1.List(r)
ls_di.AddItem (f)
Next r
Next g
يك سوال ديگه هم دارم :
چه طوري فايل هاي Hidden رو كه وارد File ها ميكنم رو بشناسم
منظورم اينه كه يك مسير رو به ابزار FILE دادم حالا مي خوام هم Hidden ها و هم عادي ها رو نشون بده !