简单问题，创建.txt文件，在线等

Question

各位大侠，如何用vb在下级目录里面创建一个.txt文件啊，我是菜鸟，不好意思啊

Answer 1

' 假设与程序同一级的目录中有一个abc目录，要在abc目录下建一个test.txt，就这样。Option ExplicitPrivate Sub Command1_Click()
    Open App.Path & "\abc\test.txt" For Output As #1
        Print #1, "test"
    Close #1
End Sub

Answer 2

啊，看见了，嘻嘻
哪怎么能确定那个文件夹下面的某一个名字的文件呢？例如“\abc\test.txt”?

Answer 3

删除文件有很多种方法。
简单的可以用Kill。 
Kill 语句
      从磁盘中删除文件。语法Kill pathname必要的 pathname 参数是用来指定一个文件名的字符串表达式。pathname 可以包含目录或文件夹、以及驱动器。说明在 Microsoft Windows 中，Kill 支持多字符 (*) 和单字符 (?) 的统配符来指定多重文件。

Answer 4

Set FileSystemObject = CreateObject("Scripting.FileSystemObject")If Not FileSystemObject.FileExists(App.Path + "\text2.txt") Then
    Set TextStream = FileSystemObject.CreateTextFile("text2.txt")
Else
    Set TextStream = FileSystemObject.OpenTextFile(App.Path + "\text2.txt")
End If
补充一下flc(菜鸟(API)，请多多关照：）) 
打开或创建文本文件时后面有三个参数ForAppending,ForReading,ForWriting
ForAppending 在原来的基础上追加
ForReading 只读
ForWriting 清空原来内容，重写

Answer 5

'
'写TEXT文件(如果文件不存在，则创建该文件）
'函数:WritTextFile
'参数:FileName 目标文件名.WritStr 写到目标的字符串.
'返回值:成功 返回文件内容.失败  返回""
'注:如果同名,目标字符串将覆盖原文件内容.
Public Function WritTextFile(Filename As String, WritStr As String) As Boolean
'/保存文件
    Dim FileID As Long, ConTents As String
    Dim A As Long, B As Long
    
    On Error Resume Next
    
    FileID = FreeFile
    Open Filename For Output As #FileID
         Print #FileID, WritStr
    Close #FileID
    WritTextFile = (Err.Number = 0)
    Err.Clear
End Function'
'读TEXT文件
'函数:RedTextFile
'参数:FileName 打开的TXT文件名.
'返回值:成功 返回文件内容.失败  返回""
Public Function RedTextFile(Filename As String) As String
     Dim FileID As Long
     Dim InputStr As String
     Dim LineStr As String
     
     On Error Resume Next
     
     InputStr = "": LineStr = ""
     FileID = FreeFile()
     Open Filename For Input As #FileID
          Do While Not EOF(FileID)           ' 循环至文件尾。
             LineStr = ""
             Line Input #FileID, LineStr
             InputStr = InputStr & LineStr
          Loop
     Close #FileID
     RedTextFile = IIf(Err.Number = 0, InputStr, "")
     Err.Clear
End Function