建站
咨詢
售后
建站咨詢
新聞中心
vb.net關(guān)鍵字搜索文件
窗體上添加一個文本框，一個列表框，一個按鈕：
成都創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),漢壽企業(yè)網(wǎng)站建設(shè),漢壽品牌網(wǎng)站建設(shè),網(wǎng)站定制,漢壽網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,漢壽網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力。可充分滿足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學習、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。
代碼如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDir As String = "C:\123"
Dim MyFilter As String = "*" TextBox1.Text "*"
ListBox1.Items.Clear()
For Each MyFile As String In System.IO.Directory.GetFiles(MyDir, MyFilter)
ListBox1.Items.Add(MyFile)
Next
End Sub
vb.net 搜索子目錄下的文件
vb.net編程查找搜索指定目錄下面的所有文件和其子目錄下的文件，方法如下：
''=============================================
''名稱:?FindPath
''作用:?查找搜索指定目錄下面的所有文件和其子目錄下的文件
''參數(shù)：strPath?要查找的目錄，
''strFiles?用于存查找結(jié)果的緩沖區(qū)，String?類型的動態(tài)數(shù)組，調(diào)用時事先初始化，?如Redim?strFiles(0)
''FileCount?用于返回文件個數(shù)
''=============================================
Public?Sub?FindPath(ByVal?strPath?As?String,?strFiles()?As?String,?FileCount?As?Long)
Dim?strDirs()???As?String
Dim?strResult???As?String
Dim?FileLimit???As?Long
Dim?dirLimit????As?Long
Dim?dirCount????As?Long
Dim?I???????????As?Long
FileLimit?=?UBound(strFiles)?+?1
dirLimit?=?0
If?Right$(strPath,?1)??"/"?Then?strPath?=?strPath??"/"
strResult?=?Dir(strPath,?vbDirectory?+?vbSystem?+?vbReadOnly?+?vbHidden?+?vbNormal?+?vbArchive)
Do?While?Len(strResult)??0
If?strResult??"."?And?strResult??".."?Then
If?(GetAttr(strPath??strResult)?And?vbDirectory)??vbDirectory?Then
If?FileCount?=?FileLimit?Then
ReDim?Preserve?strFiles(FileLimit?+?10)
FileLimit?=?FileLimit?+?10
End?If
strFiles(FileCount)?=?strPath??strResult
FileCount?=?FileCount?+?1
Else
If?dirCount?=?dirLimit?Then
ReDim?Preserve?strDirs(dirLimit?+?10)
dirLimit?=?dirLimit?+?10
End?If
strDirs(dirCount)?=?strPath??strResult
dirCount?=?dirCount?+?1
End?If
End?If
strResult?=?Dir(,?vbDirectory?+?vbSystem?+?vbReadOnly?+?vbHidden?+?vbNormal?+?vbArchive)
Loop
For?I?=?0?To?dirCount?-?1
Call?FindPath(strDirs(I),?strFiles,?FileCount)
Next?I
End?Sub
我用vb.net寫了一個能逐行搜索指定txt文本的按鈕，但按鈕只能點擊一次，再點擊就不能重復(fù)這個功能
一，出錯后繼續(xù)運行程序，可以使用On Error Resume Next.
二，要能點了又可以使用，就要看代碼了，應(yīng)該是你的代碼問題
你在代碼后面都fileclose(1)了，前面又沒有open當然會報錯，你把open放到do while前面，就OK了呀。
vb.net 如何用通配符查找文件
步驟如下：
窗體上添加2個列表框，一個按鈕：
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDir As String = "C:\123"
'搜索并顯示子文件夾
ListBox1.Items.Clear()
For Each MySubDir As String In System.IO.Directory.GetDirectories(MyDir)
ListBox1.Items.Add(MySubDir)
Next
'搜索并顯示文件
ListBox2.Items.Clear()
For Each MyFile As String In System.IO.Directory.GetFiles(MyDir)
ListBox2.Items.Add(MyFile)
Next
End Sub
End Class
vb.net 搜索文件的問題
1、要使用進度條，可用遞歸的方法取得文件夾內(nèi)的文件數(shù)。
2、在循環(huán)里使用DoEvent語句。
vb.net查找文件問題
思路：
1，使用ListBox1控件來存放搜索到的文件名，然后ListBox1.SelectedItem就可以返回選中項的文本；
2，利用獲得的選中項文本（即文件與路徑），使用打開文本文件的方法，讀取內(nèi)容顯示在文本框里。
分享文章：vb.net文本搜索,vb搜索關(guān)鍵字文件
當前路徑：http://www.dlmjj.cn/article/hopgep.html
