blocks|key|878241|text|下面是创建(或overwrite)文件的一行代码：|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|878242|File.Create("C:\my+files\2010\SomeFileName.txt").Dispose()|code-block|syntax|javascript|878243|注意:调用Dispose()可以确保关闭对文件的引用。|878244|entityMap|0|LINK|mutability|MUTABLE|url|http://msdn.microsoft.com/en-us/library/system.io.file.create%2528v=vs.110%2529.aspx^0|7|9|0|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@$A|T|B|U|1|V]]|C|$]]|$1|D|3|E|5|F|7|W|8|@]|9|@]|C|$G|H]]|$1|I|3|J|5|6|7|X|8|@]|9|@]|C|$]]|$1|K|3|-4|5|6|7|Y|8|@]|9|@]|C|$]]]|L|$M|$5|N|O|P|C|$Q|R]]]]

Here is a single line that will create (or <a href="http://msdn.microsoft.com/en-us/library/system.io.file.create%28v=vs.110%29.aspx">overwrite</a>) the file:

<pre><code>File.Create("C:\my files\2010\SomeFileName.txt").Dispose()
</code></pre>

Note: calling Dispose() ensures that the reference to the file is closed.

blocks|key|878282|text|您可能还希望检查该文件是否已经存在，以避免意外替换该文件(当然，除非是这样的想法：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|878283|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|code-block|syntax|javascript|878284|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

You also might want to check if the file already exists to avoid replacing the file by accident (unless that is the idea of course:

<pre><code>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
</code></pre>

blocks|key|1093029|text|您可以尝试写入Documents文件夹。以下是我为我的项目的调试需求所做的一个"debug“函数：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1093030|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|code-block|syntax|javascript|1093031|您可以通过"SpecialFolder“对象访问更多的标准文件夹。|1093032|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

You can try writing into the Documents folder. Here is a "debug" function I did for the debugging needs of my project:

<pre><code>Private Sub writeDebug(ByVal x As String)
 Dim path As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
 Dim FILE_NAME As String = path &amp; "\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
</code></pre>

There are more standard folders you can access through the "SpecialFolder" object.

blocks|key|878364|text|open+C:\myfile.txt+for+append+as+#1
write+#1,+text1.text,+text2.text
close()|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|878365|这是我在Visual+Basic+6.0中使用的代码。它帮助我在我的驱动器上创建一个txt文件，将两个数据写入其中，然后关闭该文件……试一下..。|unstyled|offset|length|878366|entityMap|0|LINK|mutability|MUTABLE|url|http://en.wikipedia.org/wiki/Visual_Basic#Timeline^0|0|4|G|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|R|8|@]|9|@$G|S|H|T|1|U]]|A|$]]|$1|I|3|-4|5|F|7|V|8|@]|9|@]|A|$]]]|J|$K|$5|L|M|N|A|$O|P]]]]

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

This is the code I use in <a href="http://en.wikipedia.org/wiki/Visual_Basic#Timeline" rel="nofollow">Visual Basic 6.0</a>. It helps me to create a txt file on my drive, write two pieces of data into it, and then close the file... Give it a try...

blocks|key|1093095|text|你可以用这个|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1093096|FileOpen(1,+"C:\my+files\2010\SomeFileName.txt",+OpenMode.Output)
FileClose(1)|code-block|syntax|javascript|1093097|这将打开文件，替换其中的所有内容，然后关闭该文件。|1093098|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

You could just use this

<pre><code>FileOpen(1, "C:\my files\2010\SomeFileName.txt", OpenMode.Output)
FileClose(1)
</code></pre>

This opens the file replaces whatever is in it and closes the file.

How do I create an empty <code>.txt</code> file in the location <code>C:\my files\2010</code> using VB.NET?

Create a new txt file using VB.NET

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

问使用VB.NET创建新的txt文件
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问使用VB.NET创建新的txt文件EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问使用VB.NET创建新的txt文件
EN