❶ vb.net如何遍历整个文件夹,后找出某一个文件
解压密码:1299假设路径为C:\abc代码:Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim Files As ObjectModel.ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles("C:\abc") Dim FileSize As Long, FileName As String = Nothing Dim oFileSize As Long For Each File As String In Files oFileSize = My.Computer.FileSystem.GetFileInfo(File).Length If oFileSize > FileSize Then FileSize = oFileSize FileName = File End If Next Dim ListN As ListViewItem = New ListViewItem(My.Computer.FileSystem.GetName(FileName)) ListN.SubItems.Add(oFileSize & " byte") ListN.SubItems.Add(My.Computer.FileSystem.GetFileInfo(FileName).Extension & " 文件") ListN.SubItems.Add(FileName) ListView1.Items.Add(ListN) End SubEnd Class 详见源代码!!
❷ .NET中遍历XML文档的方法
你要遍历XML文档?要做什么?你可以使用XMLDocument类来操作Xml文档XmlDocument类有Load方法,可以将文档Load成XmlDocument对象,使用这个类可以很实现Xml的很多操作
❸ VB.NET遍历查找某个文件夹,并找出指定文件
解压密码:1299
假设路径为C:abc
代码:
PublicClassForm1PrivateSubForm1_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadDimFilesAsObjectModel.ReadOnlyCollection(OfString)=My.Computer.FileSystem.GetFiles("C:abc")DimFileSizeAsLong,FileNameAsString=NothingDimoFileSizeAsLongForEachFileAsStringInFilesoFileSize=My.Computer.FileSystem.GetFileInfo(File).LengthIfoFileSize>FileSizeThenFileSize=oFileSizeFileName=FileEndIfNextDimListNAsListViewItem=NewListViewItem(My.Computer.FileSystem.GetName(FileName))ListN.SubItems.Add(oFileSize&"byte")ListN.SubItems.Add(My.Computer.FileSystem.GetFileInfo(FileName).Extension&"文件")ListN.SubItems.Add(FileName)ListView1.Items.Add(ListN)EndSubEndClass
详见源代码!!
❹ VB.NET 遍历文件夹里所有的txt并放在一个文件夹里
Private Sub GetChilren(ByVal Subject As String) For Each i As String In My.Computer.FileSystem.GetDirectories(Subject) GetChilren(i)'在这里递归 Next For Each i As String In My.Computer.FileSystem.GetFiles(Subject)'''txt,用全局变量或参数类数组、泛型、控件内保容存每个i Next End Sub
❺ 用vb.net怎样实现在遍历某一文件夹下的所有文件
'把下面复的目录改成你制要遍历的目录Dim MyDir = "C:\Windows" Dim MyInfo = MyDir + "目录下的所有文件包括:" For Each MyFile In System.IO.Directory.GetFiles(MyDir) MyInfo += Environment.NewLine + MyFile Next Me.RichTextBox1.Text =MyInfo
❻ .NET中如何循环遍历一个文件夹中的图片并将图片以二进制的方式存入sqlserver数据库
publicvoidToImg(Imageimg,Stringname)//插入图片{#region上传文件办法//FileStreamfs=newFileStream([email protected]"/gy.gif",FileMode.Open,FileAccess.Read);//BinaryReaderbr=newBinaryReader(fs);//byte[]photo=br.ReadBytes((int)fs.Length);//br.Close();//fs.Close();#endregion//把图片转换成二进制MemoryStreamms=newMemoryStream();img.Save(ms,System.Drawing.Imaging.ImageFormat.Jpeg);byte[]photo=ms.GetBuffer();ms.Close();//存储字段OleDbCommandcmd=newOleDbCommand("INSERTINTO下单表(订票人,识别码)VALUES(@CategoryName,@Picture)",conn);cmd.Parameters.Add("@CategoryName",OleDbType.VarChar,15).Value=name;cmd.Parameters.Add("@Picture",OleDbType.Binary,photo.Length).Value=photo;cmd.ExecuteNonQuery();}publicvoidPix(PictureBoxpx,Stringname)//显示图片{Stringsql="Select识别码from下单表where订票人='"+name+"'";byte[]imagebytes=null;OleDbCommandcom=newOleDbCommand(sql,conn);OleDbDataReaderdr=com.ExecuteReader();while(dr.Read()){imagebytes=(byte[])dr.GetValue(0);}MemoryStreamms=newMemoryStream(imagebytes);Bitmapbmpt=newBitmap(ms);px.Image=bmpt;px.SizeMode=PictureBoxSizeMode.StretchImage;}
这是数据库读取和存储图片的方法,至于遍历文件夹,你自己找下例子吧,我是个懒人,太无聊的事情不做
❼ 求大神指点 vb.net 怎么 遍历目录下的所有文件夹和文件夹下的所有文件 exe|txt.bmp|dll …
IO.Directory.GetDirectories("文件复夹制") '获取文件夹中的所有子文件夹路径。 IO.Directory.GetFiles("文件夹") '获取文件夹下所有文件的路径。 '子文件夹的子文件夹,用递归;
❽ ASP.NET如何遍历服务器端文件夹内的文件然后绑定数据库
这个不是用sql来搞定的吧。
个人感觉应该用服务器端代码来实现。
DirectoryInfodirInfo=newDirectoryInfo("路径");//参数一版:文件类型(如果所有文权件就是*)//参数二:是否查找目录下的子目录FileSystemInfo[]files=dirInfo.GetFileSystemInfos("*.jpg",DirectoryInfo.GetFileSystemInfos);DataGrid.DataSource=files;DataGrid1.DataBind();//剩下的,你只要前台把文件的个个属性对应上就可以了。FileSystemInfo类有哪些属性,建议去msdn上面查一下。
❾ VB.net遍历某个文件夹,并读取子目录中的指定文件
vb.net:Dimpath=System.IO.Directory.GetFiles("D:\Log\abc","*.txt",SearchOption.AllDirectories):抄搜索该路径下的所有txt类型的目录及子目录path.AddRange(path)Dim_RecordInfoAsStringDim_ReaderAsStreamReader_Reader=NewStreamReader(file,System.Text.Encoding.Default):'以Default编码的形式读取file文件(文件写入的编码要与读取的编码一致)
❿ 在VB.net中,如何遍历指定路径下的文件夹并把文件夹名存储在数组中
给你一个提示吧!呵呵,剩下的要自己思考哦!Path:是初始目录的路径Private Sub WriteArray(ByVal Path As String)'写入数组代码在这里,直接将Path写到数组就行了。Dim dir As New IO.DirectoryInfo(Path) For Each d As IO.DirectoryInfo In dir.GetDirectories WriteArray(d.FullName) '递归 NextEnd Sub如果子目录较多那么递归会比较费时间,在调用递归前加入application.doevent就行了,这样在应对大递归时不会死机。至于数组嘛使用 arraylist 最好了。 回答补充:把递归去掉就行了啊!