舉個例子:
10年積累的網(wǎng)站制作、成都網(wǎng)站制作經(jīng)驗(yàn),可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識你,你也不認(rèn)識我。但先網(wǎng)站設(shè)計(jì)后付款的網(wǎng)站建設(shè)流程,更有赤壁免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
先引入命名空間:
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:\
創(chuàng)建
test
文件夾。
Imports?System.IO
Imports?System.Diagnostics
Imports?System.Windows.Forms
Class?Form1
Inherits?Form
Private?filename?As?String?=?"abc.bat"
Private?bat?As?String?=?"@echo?off"??vbCr??vbLf??"dir"??vbCr??vbLf??"pause"??vbCr??vbLf??"exit"??vbCr??vbLf
Private?Sub?New()
Dim?btn?As?New?Button()
btn.Parent?=?Me
btn.Text?=?"Run?bat"
AddHandler?btn.Click,?Sub()?Process.Start(filename)
End?Sub
Protected?Overrides?Sub?OnLoad(e?As?EventArgs)
File.WriteAllText(filename,?bat)
MyBase.OnLoad(e)
End?Sub
Protected?Overrides?Sub?OnClosed(e?As?EventArgs)
File.Delete(filename)
MyBase.OnClosed(e)
End?Sub
STAThread?_
Public?Shared?Sub?Main()
Application.Run(New?Form1())
End?Sub
End?Class
用Directory.CreateDirectory即可創(chuàng)建文件夾:
'?建立目錄
If?Not?Directory.Exists("C:\負(fù)屃\"??TextBox1.Text)?Then?'檢查文件夾是否存在
Directory.CreateDirectory("C:\負(fù)屃\"??TextBox1.Text)??'不存在,創(chuàng)建文件建夾
End?If
你的例子是因?yàn)樯倭艘粋€"\"引起的,正確的如下:
Dim?fsotest?As?New?FileSystemObject
If?fsotest.FileExists("C:\負(fù)屃\"??TextBox1.Text)?=?False?Then
fsotest.CreateFolder("C:\負(fù)屃\"??TextBox1.Text) '這里你少了一個\
End?If
MsgBox("創(chuàng)建成功")
在任意form類或模塊中都可以創(chuàng)建類,跟建立函數(shù)和過程一樣。
示例:
public class form1
‘創(chuàng)建一個屬于form的子類,名稱為【類名】。
public class 類名
’定義類成員text
public text as string
end class
‘定義一個【類名】類的公共變量。
dim 類名1 as 類名
’定義一個過程,使用【類名】類的text成員
public sub 過程
‘實(shí)例化【類名1】
類名1=new 類名
類名1.text=“賦值”
’定義一個【新類】類的私用變量,并實(shí)例化。
dim 新類1 as new 新類
新類1.name=“一個字符串”
新類1.age=12
end sub
end class
‘’‘創(chuàng)建一個與form同級的類,名稱為【新類】
public class 新類
public sub new()
end sub
public name as string
public age as integer
end class
在模塊中使用:
public class module1
dim a as new form1.類名
end module
Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click
Try
' 先建立目錄以便用于后續(xù)的刪除示范。
If Not Directory.Exists("D:\網(wǎng)易") Then
Directory.CreateDirectory(" D:\網(wǎng)易 \Test1")
Directory.CreateDirectory(" D:\網(wǎng)易 \Test2")
Directory.CreateDirectory(" D:\網(wǎng)易 \Test3")
End If
' 刪除子目錄 Test1。
Directory.Delete(" D:\網(wǎng)易 \Test1", True)
' 刪除子目錄 Test2。
Dim myDirectoryInfo As New DirectoryInfo(" D:\網(wǎng)易 \Test2")
myDirectoryInfo.Delete(True)
' 將目錄 C:\AlexDirDemo 及其以下的文件和子目錄全數(shù)刪除。
Directory.Delete(" D:\網(wǎng)易 ", True)
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Sub
End Try
' 啟動 Windows 資源管理器。
Process.Start("explorer.exe", "D:\")
End Sub
臨時文件通常用于臨時性的數(shù)據(jù)存儲和操作,比如在存儲用戶數(shù)據(jù)、參數(shù)選擇、會話信息、應(yīng)用程序緩存等類型的信息。
為了在VB.NET中獲取臨時文件的文件名,我建議使用Path類的GetTempFileName方法,盡管創(chuàng)建臨時文件的方法有很多種,但是最佳的方案是使用System.IO.Path,因?yàn)樗梢栽诋?dāng)前用戶的臨時目錄中返回唯一的文件名,您可以使用該文件名命名的文件來存儲臨時信息。
需要注意的是,如果多次調(diào)用該方法,那么每次都會生成不同的文件名,即使您沒有使用這些文件名。這樣做是為了防止不同的應(yīng)用軟件之間的沖突。
在列表A的示例代碼中,我定義了字符串變量sTempFileName,并將System.IO.Path.GetTempFileName方法的返回值賦值給該變量,這樣我就擁有了一個可以使用的臨時文件名,然后我創(chuàng)建一個FileStream對象——fsTemp,同時向系統(tǒng)發(fā)出請求來創(chuàng)建文件,這個臨時文件使用的正是sTempFileName中所存儲的文件名。文件創(chuàng)建完成之后,我就開始向文件中添加數(shù)據(jù)(例子中沒有展示這部分代碼),然后將這個文件關(guān)閉。
本文題目:vb.net類的創(chuàng)建文件 vb 創(chuàng)建文件
當(dāng)前鏈接:http://aaarwkj.com/article38/hhhhsp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供標(biāo)簽優(yōu)化、定制開發(fā)、全網(wǎng)營銷推廣、面包屑導(dǎo)航、營銷型網(wǎng)站建設(shè)、小程序開發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)