189 8069 5689
用Directory.CreateDirectory即可创建文件夹：
创新互联建站服务项目包括道里网站建设、道里网站制作、道里网页制作以及道里网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，道里网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到道里省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
' 建立目录
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("创建成功")
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
这个线程对象一定有个完成时或者进行中的动作，你可以用AddHandler语句来将过程委托给ProcessChanged或者ProcessConpleted动作。
.Net Core是微软发布的下一代开发平台，是一个用来构建现代化的、可伸缩的和高性能的，可以跨平台的应用软件通用开发框架。和.Net
Framework相比具有良好的跨平台特性和更优异的性能，除了可以在Windows平台上运行外还支持Linux和MacOS平台。
在.Net Core的早期版本尚不支持开发桌面应用程序。如果我们想用C#开发桌面应用程序的话只能使用.Net
Framework或者MONO平台。不过自9月23日微软正式发布.Net Core 3.0起，我们也可以基于.Net Core来开发桌面应用程序了。
VS2019 16.3
微软的桌面应用程序开发技术主要有WinForms和WPF两种。这两种技术现在.Net Core
3.0都支持，不过它们只能在Windows平台上运行。如果想用C#开发跨平台的桌面应用只能选择MONO了。
开发基于.Net Core 3.0平台的桌面应用程序必须要安装Visual Studio 2019 16.3或更高的版本，可以直接使用Visual
Studio Installer在线升级。目前官网上可以升级的最新版本是16.3.1。
图一 VS2019 16.3.1
不过目前的VS2019中还没有集成Windows
Forms图形设计器，需要的话得从单独下载安装。
创建WinForms程序
双击打开Visual Studio 2019，选择“创建新项目”，参见下图所示。
图二 创建新项目
然后在项目模板中选择“Windows Forms App(.NET Core)”，注意这里使用的框架是.Net
Core了，而不是之前我们一直使用的.Net Framework。当然在VS2019中我们依然可以使用.Net Framework来开发桌面应用程序。
举个例子：
先引入命名空间：
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
文件夹。
多线程操控同一个空间容易出现混乱，可通过SyncLock语句，将对空间的操作添加至lock语句内部，
Class simpleMessageList
Public messagesList() As String = New String(50) {}
Public messagesLast As Integer = -1
Private messagesLock As New Object
Public Sub addAnotherMessage(ByVal newMessage As String)
SyncLock messagesLock
messagesLast += 1
If messagesLast messagesList.Length Then
messagesList(messagesLast) = newMessage
End If
End SyncLock
End Sub
End Class
参考：