用Directory.CreateDirectory即可创建文件夹:
创新互联公司于2013年开始,先为河津等服务建站,河津等地企业,进行企业商务咨询服务。为河津企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
' 建立目录
If Not Directory.Exists("C:\负屃\" TextBox1.Text) Then '检查文件夹是否存在
Directory.CreateDirectory("C:\负屃\" TextBox1.Text) '不存在,创建文件建夹
End If
你的例子是因为少了一个"\"引起的,正确的如下:
Dim fsotest As New FileSystemObject
If fsotest.FileExists("C:\负屃\" TextBox1.Text) = False Then
fsotest.CreateFolder("C:\负屃\" TextBox1.Text) '这里你少了一个\
End If
MsgBox("创建成功")
什么IIS架构。晕~~~
1.首先正式版本的发布你必须要Release,不要直接把Debug程序放上去。
2.将所有的.cs文件删除。vs.net有一个很方便的工具,“项目——复制项目”就ok了。
3.windows server2003上一定要安装了"Internet 信息服务(IIS)管理器",如果没有安装的话可以到“控制面板——添加或删除程序——添加\删除WINDOWS组件——应用程序服务器”如果“应用程序服务器”没有构选的话钩上,放入windows 2003的系统盘安装。
4.安装完成之后把项目靠到服务器上。简单一点的方法是右键点击项目文件夹,Web共享——共享文件夹。此时就算发布成功了。不过还有一些细节需要注意。如:IIS匿名访问等。那就是另外的问题了。呵呵。IIS设置很简单,可以在网上找些资料。
举个例子:
先引入命名空间:
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
文件夹。
CSV文件,在EXCEL里可以直接生成与读取。
可以通过VB.net去操作,打开EXCEL文件,去完成上述操作,而更为简单的办法是直接当做操作文本文件(TXT文件)就可以,因为用记事本软件,打开CSV文可以发现,其实际上是一个行内数据之间用逗号分隔的格式文件。
下面给出例子:
在窗体上添加两个多行文本框,两个按钮,两个文本框一个用来输入生成CSV文件的数据,另一个用来读取显示CSV文件的数据;两个按钮,一个完成生成CSV文件的代码,另一个完成读取CSV文件的代码;具体代码如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'创建(写入)一个文本文件
Dim MyStream As New System.IO.FileStream(Application.StartupPath "\Ssk.CSV", System.IO.FileMode.Create)
Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.Default)
MyWriter.WriteLine(TextBox1.Text)
MyWriter.Flush()
MyWriter.Close()
MyStream.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'读取一个文本文件
Dim MyReader As New System.IO.StreamReader(Application.StartupPath "\Ssk.CSV", System.Text.Encoding.UTF8)
TextBox2.Text = MyReader.ReadToEnd()
MyReader.Close()
End Sub
注意:在输入文本框里,同一行数据的数据之间用逗号(西文逗号)分隔。