使用VB.NET创建一个新的txt文件

Question

如何使用 VB.NET 在位置 C:\my files\2010 创建一个空的 .txt 文件？

- sam

---

这段代码非常有用。谢谢。 - user998769

Answer 1

这是一条单行代码，它将创建（或覆盖）该文件:

File.Create("C:\my files\2010\SomeFileName.txt").Dispose()

注意：调用Dispose()方法可以确保文件引用被关闭。

- Schenz

---

是的，我是一个新手，当我使用例子时，提示出现错误“名称‘File’未声明”，我知道如何声明字符串，但不知道怎么声明名称。 - sam

@Schenz：我知道，哈哈，这是我放进示例中的原因。我想象自己早期在想：“文件名从哪里来了？” - Paul Sasik

@sam：你需要导入 File，像这样：Imports System（换行）Imports System.IO。 - Matt Ball

将Imports System.IO添加到类的顶部，或将示例更改为System.IO.File.Create("C:\my files\2010\SomeFileName.txt").Dispose()。 - Schenz

@Sam：你需要在文件顶部添加一个导入，像这样：Imports System.IO。 - Paul Sasik

谢谢使用 .Dispose()。 - Muhammad Saqib

Answer 2

您可能还希望检查文件是否已经存在，以避免意外替换文件（除非这是您的意图）：

Dim filepath as String = "C:\my files\2010\SomeFileName.txt"
If Not System.IO.File.Exists(filepath) Then
   System.IO.File.Create(filepath).Dispose()
End If

- Geoffrey

---

非常感谢您。我能够创建该文件，但它会被锁定。而您的代码帮助我克服了这个障碍。谢谢你Geoffrey。Wayne - Wayne Barron

Answer 3

您可以尝试将内容写入“文档”文件夹中。这是我为项目调试需求编写的“调试”函数:

Private Sub writeDebug(ByVal x As String)
    Dim path As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
    Dim FILE_NAME As String = path & "\mydebug.txt"
    MsgBox(FILE_NAME)
    If System.IO.File.Exists(FILE_NAME) = False Then
        System.IO.File.Create(FILE_NAME).Dispose()
    End If
    Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)
    objWriter.WriteLine(x)
    objWriter.Close()
End Sub

通过“SpecialFolder”对象，您可以访问更多的标准文件夹。

- Human Wannabe

Answer 4

你可以直接使用这个。

FileOpen(1, "C:\my files\2010\SomeFileName.txt", OpenMode.Output)
FileClose(1)

这将打开文件，替换其中的内容并关闭文件。

- ABPerson

Answer 5

open C:\myfile.txt for append as #1
write #1, text1.text, text2.text
close()

这是我在Visual Basic 6.0中使用的代码。它帮助我在我的驱动器上创建一个txt文件，将两个数据写入其中，然后关闭文件...试试吧...

- Abdullah Gulraiz