systam
یک شنبه 26 آذر 1391, 17:07 عصر
سلام دوستان
از عنوان پست مشخصه من یک پوشه حدود 1000 فایل ورد دارم که پیدا کردن فایل هایی که میخوام یکم طول میکشه
تصمیم گرفتم این برنامه رو بنویسم
این کد تابع ها اطلاعات فایل ها رو در پوشه مورد نظر فراخوانی کرده
Private Sub FindFile(ByVal Dir As DirectoryInfo, ByVal filename As String)
Try
' Here is where the exception is thrown if access is denied
Dim files() As FileInfo = Dir.GetFiles(filename.ToString)
If files.Length > 0 Then
' add the files to the listbox
cb1.Items.AddRange(files)
' search each subdirectory
For Each di As DirectoryInfo In Dir.GetDirectories
FindFile(di, filename)
Next
End If
Catch ex As Exception
MsgBox("Access denied to this folder")
End Try
فراخوانی و ریخت اطلاعات درون کنترول ها
Dim str As String = TextBox1.Text
Dim dir As DirectoryInfo = New DirectoryInfo("e:\تحقیق")
FindFile(dir, "*.docx")
cb1.SelectedIndex = 0
حا لا من این کد رو در قسمت تکس باکسم نوشتم با ورود حروف مثال ((حرف ر)) رو که میزنم مقاله هایی که با حرف (ر) شروع شدند برام داخل یک لیست باکس نمایش میده
تا اینجا مشکلی ندارم همه چیز دسته
ولی میخوام پیشرفته ترش کنم بین اسم های فایل ها رو برای من جستجو کنم کد با براساس حروف اول فایل هاست
اینم کد برای ورود اطلاعات در تکسباکس برای جستجو
Dim item_count As Integer
ListBox1.Items.Clear()
Dim b As Integer = Len(TextBox1.Text)
Dim a = 0
item_count = cb1.Items.Count
For i = 1 To item_count
cb1.SelectedIndex = a
a += 1
If Strings.Left(cb1.Text, b) = TextBox1.Text Then
ListBox1.Items.Add(cb1.Text)
ElseIf a = 0 Then
ListBox1.Items.Clear()
ListBox1.Items.Add("موردی یافت نشد")
End If
If TextBox1.Text.ToString = "" Then
ListBox1.Items.Clear()
End If
Next
دوستان راهنمایی کنند ممنون میشم
یا علی
از عنوان پست مشخصه من یک پوشه حدود 1000 فایل ورد دارم که پیدا کردن فایل هایی که میخوام یکم طول میکشه
تصمیم گرفتم این برنامه رو بنویسم
این کد تابع ها اطلاعات فایل ها رو در پوشه مورد نظر فراخوانی کرده
Private Sub FindFile(ByVal Dir As DirectoryInfo, ByVal filename As String)
Try
' Here is where the exception is thrown if access is denied
Dim files() As FileInfo = Dir.GetFiles(filename.ToString)
If files.Length > 0 Then
' add the files to the listbox
cb1.Items.AddRange(files)
' search each subdirectory
For Each di As DirectoryInfo In Dir.GetDirectories
FindFile(di, filename)
Next
End If
Catch ex As Exception
MsgBox("Access denied to this folder")
End Try
فراخوانی و ریخت اطلاعات درون کنترول ها
Dim str As String = TextBox1.Text
Dim dir As DirectoryInfo = New DirectoryInfo("e:\تحقیق")
FindFile(dir, "*.docx")
cb1.SelectedIndex = 0
حا لا من این کد رو در قسمت تکس باکسم نوشتم با ورود حروف مثال ((حرف ر)) رو که میزنم مقاله هایی که با حرف (ر) شروع شدند برام داخل یک لیست باکس نمایش میده
تا اینجا مشکلی ندارم همه چیز دسته
ولی میخوام پیشرفته ترش کنم بین اسم های فایل ها رو برای من جستجو کنم کد با براساس حروف اول فایل هاست
اینم کد برای ورود اطلاعات در تکسباکس برای جستجو
Dim item_count As Integer
ListBox1.Items.Clear()
Dim b As Integer = Len(TextBox1.Text)
Dim a = 0
item_count = cb1.Items.Count
For i = 1 To item_count
cb1.SelectedIndex = a
a += 1
If Strings.Left(cb1.Text, b) = TextBox1.Text Then
ListBox1.Items.Add(cb1.Text)
ElseIf a = 0 Then
ListBox1.Items.Clear()
ListBox1.Items.Add("موردی یافت نشد")
End If
If TextBox1.Text.ToString = "" Then
ListBox1.Items.Clear()
End If
Next
دوستان راهنمایی کنند ممنون میشم
یا علی