十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
保存文件的步骤为:
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:域名与空间、雅安服务器托管、营销软件、网站建设、晋中网站维护、网站推广。
关闭流,特别是写入流
关闭并保存文件
示例代码如下:
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
判断和创建可以放在一起。
创建空文件夹:
Directory.CreateDirectory(文件夹完整路径)
'系统会自动判断文件夹是否存在,不存在就创建判断并创建空文件:
Using fs As New FileStream("f.txt", FileMode.OpenOrCreate)
'你可以用这个FileStream做其它事情
End Using
设计一个窗口,添加一个名为textBox1的System.Windows.Forms.TextBox,
添加一个名为button1的System.Windows.Forms.Button。
为button1的单击事件添加如下处理函数:
Sub Button1Click(sender As Object, e As EventArgs)
'f是你的文本文件的文件名
Const f As String="t.txt"
Dim sw As System.IO.StreamWriter=Nothing
Try
If Not System.IO.File.Exists(f) Then
sw=System.IO.File.CreateText(f)
Else
sw=New System.IO.StreamWriter(f,True)
End If
sw.WriteLine(textBox1.Text)
Finally
If sw IsNot Nothing Then
sw.close()
End If
End Try
End Sub
操作系统要实现文件夹不能直接删除的格式是: 文件名..\
操作系统里面,创建一个文件夹后文件夹并非空的,里面还有 . 和 .. 这两个名字的隐藏文件夹来作为是否文件夹的标识,所以CreateDirectory ("d:\\test\\test2.\\") 是创建了test文件夹和test.文件
夹,所以你要创建不能直接删除的文件夹,可以改成CreateDirectory ("d:\\test\\test2..\\")
举个例子:
先引入命名空间:
Imports System.IO
Imports System.Security.AccessControl
代码:
Dim sec As DirectorySecurity = New DirectorySecurity
Dim rule As FileSystemAccessRule = New FileSystemAccessRule("Administrator", FileSystemRights.Delete, AccessControlType.Allow)
sec.AddAccessRule(rule)
Directory.CreateDirectory("C:\test", sec)
这段代码就是以 Administrator 帐户 在 C:\ 创建 test 文件夹。
勾选后,解决方案在当前指定的目录下,而项目全部在此目录的子目录下
如果不勾选,解决方案和项目会在同一目录下
勾选时,当前创建的目录下会有一个文件夹(以项目名称命名,内有项目相关的许多文件和文件夹),再有三个解决方案的文件
不勾选时,当前创建的目录下也会有三个解决方案的文件,同时还会有许多文件(就是项目所属文件,比如项目文件/代码文件/bin目录等等)