建站
咨詢
售后
建站咨詢
新聞中心
vb.net 搜索子目錄下的文件
vb.net編程查找搜索指定目錄下面的所有文件和其子目錄下的文件，方法如下：
公司主營(yíng)業(yè)務(wù)：網(wǎng)站制作、做網(wǎng)站、移動(dòng)網(wǎng)站開(kāi)發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競(jìng)爭(zhēng)能力。創(chuàng)新互聯(lián)公司是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開(kāi)放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對(duì)我們的高要求，感謝他們從不同領(lǐng)域給我們帶來(lái)的挑戰(zhàn)，讓我們激情的團(tuán)隊(duì)有機(jī)會(huì)用頭腦與智慧不斷的給客戶帶來(lái)驚喜。創(chuàng)新互聯(lián)公司推出清水河免費(fèi)做網(wǎng)站回饋大家。
''=============================================
''名稱:?FindPath
''作用:?查找搜索指定目錄下面的所有文件和其子目錄下的文件
''參數(shù)：strPath?要查找的目錄，
''strFiles?用于存查找結(jié)果的緩沖區(qū)，String?類(lèi)型的動(dòng)態(tài)數(shù)組，調(diào)用時(shí)事先初始化，?如Redim?strFiles(0)
''FileCount?用于返回文件個(gè)數(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主要編寫(xiě)的代碼在哪個(gè)文件目錄下?
VS2005為例：
我的文檔--Visual Studio 2005----Projects
在這面找到你的項(xiàng)目，打開(kāi)項(xiàng)目文件夾，再打開(kāi)項(xiàng)目文件夾，以WindowsApplication1為項(xiàng)目名為例：
我的文檔\Visual Studio 2005\Projects\WindowsApplication1\WindowsApplication1
VB.NET 獲取文件目錄
Server.MapPath("~") "\" "Web.config"Server.MapPath("~") 是取當(dāng)前目錄上一級(jí)的路徑Server.MapPath(".") 是取當(dāng)前目錄的路徑
VB.net遍歷某個(gè)文件夾，并讀取子目錄中的指定文件
vb.net：
Dim path = System.IO.Directory.GetFiles("D:\Log\abc", "*.txt", SearchOption.AllDirectories)：搜索該路徑下的所有txt類(lèi)型的目錄及子目錄
path.AddRange(path)
Dim _RecordInfo As String
Dim _Reader As StreamReader
_Reader = New StreamReader(file, System.Text.Encoding.Default)：'以Default編碼的形式讀取file文件(文件寫(xiě)入的編碼要與讀取的編碼一致)
vb.net從數(shù)據(jù)庫(kù)讀取信息填充treeview做成層次目錄怎么做
給你一段我曾經(jīng)寫(xiě)的代碼，主要是生成TreeView的節(jié)點(diǎn)！有什么不懂的地方你就提！
Public Sub InitializeTreeView(ByVal strvXL As TreeView, ByVal vrsRecordTwo As DataSet)
Dim treBaseNodeOne As TreeNode
Dim treBaseNodeTwo As TreeNode
Dim strDWDM As String
m_rsRecordTwo = g_clsSybase.SelectSC_PD_SBCSB1()
'查找供電局信息
g_clsSybase.SelectRS_ZZJG_ZZJGDMB(m_rsRecordOne)
'添加根節(jié)點(diǎn)
Do While m_rsRecordOne.Read
strDWDM = m_rsRecordOne.GetString(0) '獲取單位代碼
treBaseNodeOne = New TreeNode
treBaseNodeOne.Text = m_rsRecordOne.GetString(1).Trim() '獲取單位名稱
treBaseNodeOne.Name = m_rsRecordOne.GetString(1)
treBaseNodeOne.Tag = ""
strvXL.Nodes.Add(treBaseNodeOne)
'添加樹(shù)結(jié)構(gòu)第二層
Dim drsTwo() As DataRow
drsTwo = m_rsRecordTwo.Tables(0).Select("SSDW='" strDWDM "' and SC__XLBM is null")
For Each dr As DataRow In drsTwo
treBaseNodeTwo = New TreeNode
treBaseNodeTwo.Text = dr.Item("XLMC").ToString.Trim
treBaseNodeTwo.Name = dr.Item("XLMC")
treBaseNodeTwo.Tag = dr.Item("XLBM")
treBaseNodeOne.Nodes.Add(treBaseNodeTwo)
Next
Loop
m_rsRecordOne.Close()
End Sub
VB.net每種數(shù)據(jù)類(lèi)型特點(diǎn)？
VB.NET數(shù)據(jù)類(lèi)型VB.NET中有12種不同的數(shù)據(jù)類(lèi)型，可以分成三類(lèi)：數(shù)值類(lèi)型、文本類(lèi)型和混合類(lèi)型。數(shù)值類(lèi)型是VB.NET數(shù)據(jù)類(lèi)型的主要類(lèi)型，共7種。數(shù)值類(lèi)型的數(shù)據(jù)類(lèi)型見(jiàn)下表。 數(shù)據(jù)類(lèi)型表示方式取 值 范 圍說(shuō) 明整型Integer–2147483648～2147483647用于表示簡(jiǎn)單整數(shù)字節(jié)型Byte0～255用于簡(jiǎn)單算術(shù)運(yùn)算。由于這個(gè)類(lèi)型的變量可以在一個(gè)字節(jié)中存儲(chǔ)，所以運(yùn)算速度最快短整型Short–32768～32767是整型的一種形式，相對(duì)表示范圍較小長(zhǎng)整型Long–9223372036854775808～9223372036854775807是整型的一種形式，相對(duì)表示范圍較大單精
度型Single–3.402823E38～–1.401298E-45(對(duì)于負(fù)數(shù))和1.401298E-45～3.402823E38(對(duì)于正數(shù))用于存放單精度浮點(diǎn)數(shù)雙精
度型Double–1.79869313486232E308～–4.94065645841247E-324(對(duì)于負(fù)數(shù))和4.94065645841247E-324～1.79869313486232E308(對(duì)于正數(shù))用于存放雙精度浮點(diǎn)數(shù)小數(shù)Decimal當(dāng)小數(shù)位為0的時(shí)候，為–79228162514264337593543950335～
79228162514264337593543950335；當(dāng)小數(shù)位為28的時(shí)候，為–7.9228162514264337593543950335～
7.9228162514264337593543950335常用于存儲(chǔ)貨幣值 數(shù)值類(lèi)型的數(shù)據(jù)類(lèi)型 用于存放文本的數(shù)據(jù)類(lèi)型有兩個(gè)。文本類(lèi)型的VB.NET數(shù)據(jù)類(lèi)型見(jiàn)下表。 數(shù) 據(jù) 類(lèi) 型表 示 方 式說(shuō) 明字符串型String用于存放任何形式的字符串，包括一個(gè)字符或者多行字符字符型Char用于存放一個(gè)字符，它以0～65535之間數(shù)字的形式存儲(chǔ)文本類(lèi)型的數(shù)據(jù)類(lèi)型 其中需要說(shuō)明的是： (1) 對(duì)于String類(lèi)型，可以存放任何形式的字符串，它可以是純粹的文本，也可以是文本和數(shù)字的組合或者是數(shù)字、日期等。例如"This is a book. "和"12345"都是字符串。對(duì)于字符串類(lèi)型的數(shù)據(jù)，可以進(jìn)行相關(guān)的字符串操作，例如連接、截?cái)嗟取?(2) 對(duì)于Char類(lèi)型，可以存儲(chǔ)的只是一個(gè)字符，注意，這個(gè)字符的存儲(chǔ)編碼必需是一個(gè)數(shù)字。在計(jì)算機(jī)系統(tǒng)中，可以顯示很多符號(hào)(不僅僅是英文字母)，為了能夠正確地顯示，國(guó)際上有通用的標(biāo)準(zhǔn)(例如Unicode編碼)，為每個(gè)字符設(shè)定了一個(gè)標(biāo)準(zhǔn)的數(shù)值來(lái)表示這個(gè)字符。其余的數(shù)據(jù)類(lèi)型還有：Date數(shù)據(jù)類(lèi)型、布爾數(shù)據(jù)類(lèi)型和Object數(shù)據(jù)類(lèi)型，其說(shuō)明見(jiàn)下表。 數(shù) 據(jù) 類(lèi) 型表 示 方 式說(shuō) 明日期型Date必須用mm/dd/yyyy的格式表示，也可以存儲(chǔ)時(shí)間(可以存儲(chǔ)00:00:00～23:59:59之間的任何時(shí)間)布爾型Boolean取值為T(mén)rue和False對(duì)象型Object 其他數(shù)據(jù)類(lèi)型 其中需要說(shuō)明的是：在VB.NET中，對(duì)于Boolean類(lèi)型的數(shù)據(jù)，當(dāng)需要把布爾類(lèi)型的值轉(zhuǎn)換為數(shù)值類(lèi)型的時(shí)候，會(huì)把True當(dāng)成1來(lái)處理，把False當(dāng)作0來(lái)處理。當(dāng)需要把VB.NET數(shù)值類(lèi)型的值轉(zhuǎn)換為布爾類(lèi)型的時(shí)候，會(huì)把0轉(zhuǎn)換為False，而把其他的非0數(shù)值轉(zhuǎn)換為T(mén)rue。
文章名稱：關(guān)于vb.net數(shù)型目錄的信息
文章分享：http://www.dlmjj.cn/article/hphsod.html
