舉個例子:
創新互聯公司專注于成都網站設計、網站建設、網頁設計、網站制作、網站開發。公司秉持“客戶至上,用心服務”的宗旨,從客戶的利益和觀點出發,讓客戶在網絡營銷中找到自己的駐足之地。尊重和關懷每一位客戶,用嚴謹的態度對待客戶,用專業的服務創造價值,成為客戶值得信賴的朋友,為客戶解除后顧之憂。
先引入命名空間:
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
文件夾。
VB.NET打開二進制文件用fileopen完成,打開二進制文件的形式為:openmode.binary
讀取二進制文件用的是fileget方法,寫入二進制文件用的是fileput方法。
應用示例:將一批隨機數保存在一個dat文件中,然后再將其提取到文本框中。
二進制文件的讀寫一批隨機數的存取,程序為:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, i, fn As Integer
Dim s As String = ""
fn = FreeFile()
FileOpen(fn, "d:\data.dat", OpenMode.Binary)
For i = 1 To 8
x = Int(Rnd() * 100)
s = s + Str(x)
FilePut(fn, x)
Next
FileClose(fn)
TextBox1.Text = s
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x, fn As Integer
Dim s As String = ""
fn = FreeFile()
FileOpen(fn, "d:\data.dat", OpenMode.Binary)
Do While Not EOF(fn)
FileGet(fn, x)
s = s + Str(x) + " "
Loop
FileClose(fn)
TextBox1.Text = s
End Sub
在網上收到一些關于文件操作的列子,現在和大家分享一下,以下的示例代碼將向您展示如何使用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方法。) 作者:未知 來源:網絡
保存文件的步驟為:
關閉流,特別是寫入流
關閉并保存文件
示例代碼如下:
Imports?System.Windows.Forms
Imports?System.IO
Imports?System.Text
Sub?SaveFileDemo()
'打開文件。如果文件不存在則創建新的文件
Dim?myFile?As?New?IO.FileStream("d:\data.txt",?_
FileMode.OpenOrCreate,?_
FileAccess.Write)
'在文件末尾添加一行?
Dim?tw?As?New?StreamWriter(myFile)
myFile.Seek(0,?SeekOrigin.End)
tw.WriteLine("白刃格斗英雄連英模部隊方隊亮相閱兵")
'關閉流
tw.Close()
'關閉文件并保存文件
myFile.Close()
End?Sub
用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 '這里釋放了資源
你好,請使用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)
分享文章:關于vb.netfile的信息
網頁URL:http://m.newbst.com/article6/hsejig.html
成都網站建設公司_創新互聯,為您提供、企業網站制作、App開發、網站營銷、響應式網站、靜態網站
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯