在網(wǎng)上收到一些關(guān)于文件操作的列子,現(xiàn)在和大家分享一下,以下的示例代碼將向您展示如何使用VB.NET FileInfo來拷貝、移動(dòng)和刪除文件,以及如何使用DirectoryInfo來移動(dòng)和刪除文件夾。(注意:為了運(yùn)行這些示例,您需要將這條語句:Imports System.IO,添加到您的表單或模塊的最頂部。)
網(wǎng)站建設(shè)哪家好,找創(chuàng)新互聯(lián)公司!專注于網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、成都微信小程序、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了南宮免費(fèi)建站歡迎大家使用!
VB.NET FileInfo示例 拷貝一個(gè)文件 1. Dim fFile1 As New FileInfo("C:abc1.txt")2.3. fFile1.CopyTo("C:abc2.txt", True)4. 我們將fFile1變量定義為一個(gè)FileInfo對(duì)象并設(shè)定它指向文件系統(tǒng)中的一個(gè)目錄,為了拷貝一個(gè)文件,我們使用FileInfo對(duì)象中的CopyTo方法并指明我們計(jì)劃要拷貝的目標(biāo)文件的全名。 移動(dòng)一個(gè)文件 1. Dim fFile1 As New FileInfo("C:abc1.txt")2.3. fFile1.MoveTo("C:abc3.txt")4. 我們將fFile1變量定義為一個(gè)FileInfo對(duì)象并設(shè)定它指向文件系統(tǒng)中的一個(gè)目錄,為了拷貝一個(gè)文件,我們使用FileInfo對(duì)象中的CopyTo方法并指明我們計(jì)劃要移動(dòng)的目標(biāo)文件的全名。 刪除一個(gè)文件 1. Dim fFile1 As New FileInfo("C:abc1.txt")2.3. fFile1.Delete()4. 我們將fFile1變量定義為一個(gè)FileInfo對(duì)象并設(shè)定它指向文件系統(tǒng)中的一個(gè)目錄,為了刪除一個(gè)文件,我們使用FileInfo對(duì)象中的Delete方法。 VB.NET FileInfo DirectoryInfo示例 移動(dòng)一個(gè)文件夾 1. Dim dDir1 As New DirectoryInfo("C:Folder1")2.3. dDir1.MoveTo("C:Folder2")4. 我們將dDir1變量定義為一個(gè)DirectoryInfo對(duì)象并設(shè)定它指向文件系統(tǒng)中的一個(gè)目錄,為了移動(dòng)一個(gè)文件夾,我們使用DirectoryInfo對(duì)象的MoveTo方法,并指明我們所移動(dòng)的文件夾的完整目標(biāo)路徑。 刪除一個(gè)文件夾 1. Dim dDir1 As New DirectoryInfo("C:Folder1")2.3. dDir1.Delete()4. 我們將dDir1變量定義為一個(gè)DirectoryInfo對(duì)象并設(shè)定它指向文件系統(tǒng)中的一個(gè)目錄,為了刪除一個(gè)文件夾,我們使用DirectoryInfo對(duì)象的Delete方法。) 作者:未知 來源:網(wǎng)絡(luò)
1、實(shí)現(xiàn)上傳按鈕方法代碼。
2、判斷圖片對(duì)象是否為空代碼。
3、取得數(shù)據(jù)庫字段 dt.Rows(0)("Pic")方法代碼。
4、字節(jié)數(shù)組轉(zhuǎn)換為Image類型方法代碼。
5、處理SQL中操作Image類型方法代碼。
6、實(shí)現(xiàn)的上傳結(jié)果。
vb.net使用控件FolderBrowserDialog1,在程序中:
'設(shè)置對(duì)話框中在樹視圖控件上顯示的說明文本
Me.FolderBrowserDialog1.Description = "請(qǐng)選擇輸出報(bào)表所在路徑:"
'設(shè)置從其開始瀏覽的根文件夾
Me.FolderBrowserDialog1.SelectedPath = "c:\"
If Me.FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
'取得全路徑(包含文件名)
reportPath1 = System.IO.Path.GetFullPath(Me.FolderBrowserDialog1.SelectedPath)
'設(shè)定text顯示文件名
txtReport1.Text = reportPath1
setReportList()
End If
在setReportList()中針對(duì)你所需要的文件進(jìn)行操作等
將WDApp.wdParagraph直接修改成數(shù)值4,也就是變成 Unit:=4 試試看!
同時(shí)將后面的:Alignment:=WDAPP.wdAlignTabRight改成:Alignment:=2,
將Leader:=WDAPP.wdTabLeaderDashes改成: Leader:=2
如果今后遇到這種問題,直接打開Word,然后
sub xx()
msgbox wdParagraph
end sub
就可以得到wdParagraph的真實(shí)值。
Dim txtStr As String = "F:\te.txt" 'txt文件路徑
Dim endname As String = "doc" '文件類型
Dim folderStr As String = "e:\file\我的文檔\畢業(yè)設(shè)計(jì)" '目錄位置
Dim str() As String = IO.Directory.GetFiles(folderStr)
For i = 0 To str.Length - 1
Dim itendname As String = Strings.Right(str(i), str(i).Length - Strings.InStrRev(str(i), "."))
Dim strs As String = ""
If itendname = endname Then
strs += str(i) + vbCrLf
End If
IO.File.AppendAllText(txtStr, strs)
Next