重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
在网上收到一些关于文件操作的列子,现在和大家分享一下,以下的示例代码将向您展示如何使用VB.NET FileInfo来拷贝、移动和删除文件,以及如何使用DirectoryInfo来移动和删除文件夹。(注意:为了运行这些示例,您需要将这条语句:Imports System.IO,添加到您的表单或模块的最顶部。)
目前创新互联已为成百上千的企业提供了网站建设、域名、网站空间、网站托管、服务器托管、企业网站设计、罗田网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
VB.NET FileInfo示例 拷贝一个文件 1. Dim fFile1 As New FileInfo("C:abc1.txt")2.3. fFile1.CopyTo("C:abc2.txt", True)4. 我们将fFile1变量定义为一个FileInfo对象并设定它指向文件系统中的一个目录,为了拷贝一个文件,我们使用FileInfo对象中的CopyTo方法并指明我们计划要拷贝的目标文件的全名。 移动一个文件 1. Dim fFile1 As New FileInfo("C:abc1.txt")2.3. fFile1.MoveTo("C:abc3.txt")4. 我们将fFile1变量定义为一个FileInfo对象并设定它指向文件系统中的一个目录,为了拷贝一个文件,我们使用FileInfo对象中的CopyTo方法并指明我们计划要移动的目标文件的全名。 删除一个文件 1. Dim fFile1 As New FileInfo("C:abc1.txt")2.3. fFile1.Delete()4. 我们将fFile1变量定义为一个FileInfo对象并设定它指向文件系统中的一个目录,为了删除一个文件,我们使用FileInfo对象中的Delete方法。 VB.NET FileInfo DirectoryInfo示例 移动一个文件夹 1. Dim dDir1 As New DirectoryInfo("C:Folder1")2.3. dDir1.MoveTo("C:Folder2")4. 我们将dDir1变量定义为一个DirectoryInfo对象并设定它指向文件系统中的一个目录,为了移动一个文件夹,我们使用DirectoryInfo对象的MoveTo方法,并指明我们所移动的文件夹的完整目标路径。 删除一个文件夹 1. Dim dDir1 As New DirectoryInfo("C:Folder1")2.3. dDir1.Delete()4. 我们将dDir1变量定义为一个DirectoryInfo对象并设定它指向文件系统中的一个目录,为了删除一个文件夹,我们使用DirectoryInfo对象的Delete方法。) 作者:未知 来源:网络
选择文件夹 在工具箱 - 对话框 里选择 FolderBrowserDialog 添加 到设计器中
然后 代码写在 按钮事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text =FolderBrowserDialog1.SelectedPath
选择文件 在工具箱 - 对话框 里选择 OpenFileDialog
把 OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
写到按钮事件下
如图
点击按钮会弹出 通用对话框 选择好路径后 确定 ,编辑框里就会显示选择的路径
用System.IO.File中的静态函数AppendText获得一个StreamWriter,然后用Write或WriteLine函数写入一些字符串,最后写入流并关闭它。
Dim sw As StreamWriter = System.IO.File.AppendText("textfile.txt")
Using sw
sw.Write("This is ") '仅写入字符串
sw.WriteLine("line 1.") '写入字符串并自动写入换行符
sw.Flush() '写入流
End Using '这里释放了资源
举个例子:
先引入命名空间:
Imports
System.IOImports
System.Security.AccessControl
代码:
Dim
sec
As
DirectorySecurity
=
New
DirectorySecurityDim
rule
As
FileSystemAccessRule
=
New
FileSystemAccessRule("Administrator",
FileSystemRights.Delete,
AccessControlType.Allow)sec.AddAccessRule(rule)Directory.CreateDirectory("C:\test",
sec)
这段代码就是以
Administrator
帐户
在
C:\
创建
test
文件夹。
你好,请使用System.IO.Directory.EnumerateFiles()方法
Dim XLS文件列表 As IEnumerable(Of string)
Dim XLSX文件列表 As IEnumerable(Of string)
Dim path As String = "D:\File\"
XLS文件列表 = Directory.EnumerateFiles(path, "*.xls", SearchOption.TopDirectoryOnly)
XLSX文件列表 = Directory.EnumerateFiles(path, "*.xlsx", SearchOption.TopDirectoryOnly)