十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
用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
参考: