السلام عليكــم ورحمـة الله وبركاتــه ،،
هل توجد طريقه اسرع من الطريقه التى توجد فى الملف المرفق لعرض المجلدات والملفات بصوره اسرع
هذه الداله التى تقوم بعمل سكان على المسار تمهيدا لعرضه
Sub ScanFolder(ByVal folderSpec As String, ByRef currentNode As TreeNode) Dim thisFolder As String Dim allFolders() As String allFolders = Directory.GetDirectories(folderSpec) For Each thisFolder In allFolders Dim Nd As TreeNode Nd = New TreeNode(thisFolder) currentNode.Nodes.Add(Nd) folderSpec = thisFolder ScanFolder(folderSpec, Nd) Me.Refresh() Next End Sub
ولكم جزيل الشكر
