***.net在指定目录创建一个txt文件

更新时间：2022-04-29 00:36:02 111次访问

程序第一次运行时在指定的目录下创建一个txt文件。如果有这个文件则不创建。

完整的程序如下：

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles ***.click
       Dim f As String
       Dim t As String
       f = "d: emp***.txt" '你的文件名
       t = "测试" '你要写入的内容
       If Dir(f) = "" Then
           Try
               my.***.writealltext(f, t, True)
           Catch ex As Exception
               MsgBox("创建文件出错！")
           End Try
       End If
   End Sub

注意：文件内容编码为UTF-8的