Imports System.Data Imports System.Configuration Imports System.Collections Imports System.Collections.Specialized Imports System.Web Imports System.Web.Security Imports System.Web.UI Imports System.Web.UI.WebControls Imports System.Web.UI.WebControls.WebParts Imports System.Web.UI.HtmlControls Imports System.IO Imports System.Text Imports GetData Public Partial Class Default2 Inherits System.Web.UI.Page Protected Sub Page_Load(sender As Object,e As EventArgs) Dim folder As String = Server.MapPath("upload") GetAllFiles(folder) End Sub ''' <summary> ''' 作为遍历<a href="/tag/wenjian/" target="_blank" class="keywords">文件</a><a href="/tag/hanshu/" target="_blank" class="keywords">函数</a>的子<a href="/tag/hanshu/" target="_blank" class="keywords">函数</a> ''' </summary> ''' <param name="parentDir">目录<a href="/tag/mingcheng/" target="_blank" class="keywords">名称</a></param> ''' <param name="result">该目录下的所有<a href="/tag/wenjian/" target="_blank" class="keywords">文件</a></param> Public Sub GetAllFiles(parentDir As String) '<a href="/tag/huoqu/" target="_blank" class="keywords">获取</a>目录parentDir下的所有的子<a href="/tag/wenjian/" target="_blank" class="keywords">文件</a>夹 Dim dir As String() = Directory.GetDirectories(parentDir) For i As Integer = 0 To dir.Length - 1 GetAllFiles(dir(i)) Next '<a href="/tag/huoqu/" target="_blank" class="keywords">获取</a>目录parentDir下的所有的<a href="/tag/wenjian/" target="_blank" class="keywords">文件</a>，并过滤得到所有的文本<a href="/tag/wenjian/" target="_blank" class="keywords">文件</a> Dim file As String() = Directory.GetFiles(parentDir) For i As Integer = 0 To file.Length - 1 Dim fi As New FileInfo(file(i)) If fi.Extension.ToLower() = ".jpg" OrElse fi.Extension.ToLower() = ".bmp" Then Microsoft.VisualBasic.FileIO.FileSystem.RenameFile(fi.FullName,i.ToString() & ".jpg") End If Next Response.Write("<br />") End Sub End Class

www.jiangnuodr.cn