VB.NET 篩選指定目錄下的指定文件（擴展名）

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

創新互聯是一家專業提供喀左企業網站建設,專注與成都網站制作、成都網站設計、成都h5網站建設、小程序制作等業務。10年已為喀左眾多企業、政府機構等服務。創新互聯專業網絡公司優惠進行中。

Dim a As String = "c:\windows\system"

For Each ws In My.Computer.FileSystem.GetFiles(a)

Dim kzm As String = ws.Substring(InStrRev(ws, "."), ws.Length - InStrRev(ws, ".")) '定義擴展名變量

If kzm = "mp4" Or kzm = "avi" Or kzm = "flv" Then '這里一定要注意擴展名的大小寫，如aviAVI的

Me.ListBox1.Items.Add(ws)

End If

Next

End Sub

vb.net 搜索子目錄下的文件

vb.net編程查找搜索指定目錄下面的所有文件和其子目錄下的文件，方法如下：

''=============================================

''名稱:?FindPath

''作用:?查找搜索指定目錄下面的所有文件和其子目錄下的文件

''參數：strPath?要查找的目錄，

''strFiles?用于存查找結果的緩沖區，String?類型的動態數組，調用時事先初始化，?如Redim?strFiles(0)

''FileCount?用于返回文件個數

''=============================================

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 獲取文件目錄

Server.MapPath("~") "\" "Web.config"Server.MapPath("~") 是取當前目錄上一級的路徑Server.MapPath(".") 是取當前目錄的路徑

VB.NET獲取目錄文件夾名稱

先用System.IO.Directory.GetDirectories函數獲取子目錄的名稱（包括其路徑），再用System.IO.Path.GetFileName獲取子目錄的名稱。下面是代碼：

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

For Each s In System.IO.Directory.GetDirectories("C:\Windows")

Console.WriteLine(System.IO.Path.GetFileName(s))

Next

End Sub

下面是部分輸出：

Application Data

AppPatch

assembly

BOCNET

Boot

Branding

ConfigSetRoot

Cursors

Debug

DigitalLocker

Downloaded Installations

Downloaded Program Files

ehome

en-US

Fonts

Globalization

Help

...

可能有更簡潔的方法，你可以到MSDN看看

System.IO.Directory.GetDirectories：

System.IO.Path.GetFileName：

通用 I/O 任務：

本文名稱：vb.net選擇目錄 vbnet打開指定目錄下的文件
網頁鏈接：http://vcdvsql.cn/article42/doodchc.html

成都網站建設公司_創新互聯，為您提供用戶體驗、網站設計、ChatGPT、網站內鏈、軟件開發、小程序開發

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯