تابع بازگشتی برای گرفتن تمام دایرکتوری های یک مسیر

[jalalx]

سلام!
من یه تابع بازگشتی برای گرفتن تمام دایرکتوری های یک مسیر خاص می خواستم.اگه میشه کمک کنید.:عصبانی++:

[reza6384]

من اینکارو نکرده بودم ، اما واسه شما نوشتم ، با استفاده از My.Computer.FileSystem خیلی از عملیات روی فایل ها و فولدر ها رو می تونی به راحتی انجام بدی :



Sub GetDirectories(ByVal DirectoryPath AsString)
Dim MyDirCollection As System.Collections.ObjectModel.ReadOnlyCollection( Of String) = My.Computer.FileSystem.GetDirectories(DirectoryPat h)
For i AsInteger = 0 To MyDirCollection.Count - 1
Me.ListBox1.Items.Add(MyDirCollection.Item(i))
Me.GetDirectories(MyDirCollection.Item(i))
Next
Me.Refresh()
EndSub

:چشمک:

[jalalx]

خیلی ممنون اقا رضا!!!

[reza6384]

خواهش می کنم ، در ضمن ورودت رو به سایت تبریک می گم و اینکه برای تشکر از کلید تشکر استفاده کن، چون مدیران سایت پست هایی رو که فقط متن اونها تشکره پاک می کنن و متذکر می شن که از اون دکمه باید استفاده کرد. :چشمک::چشمک:

[farzan_219]

ممنون ولی باز هرکاری کردم نشد لطفا"بازهم راهنمایی بیشتری کنید
با استفاده از folderbrowser dialog می تونم مسیر فایل رو داخل
textbox بیارم ولی اسم وپسوندشو نه!!!!! :متفکر:

[Evil 69]

اگر صرفا مي خاي از توابع باز گشتي استفاده كني يك كلاس بهتر براي
رفتن اين اطلاعات هست به نام directoryinfo كه با اون مي توني تمام اطلاعات لازم در مورد درايو ها ، دايركتوري ها و فايل ها بگيري از طري اين كلاس به دليل يك سري از روتين هايي كه داره خيلي راحت مي شه به صورت بازگشتي از اون استفاده كرد

[parsavb]

این رو امتحان کن



PrivateSub GlassButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GlassButton1.Click
ForEach strfolder AsStringInMy.Computer.FileSystem.GetDirectories("c:\")
ListBox.Items.add(strfolder)
Next
EndSub