怎么创建个txt文件？？？

Question

给定了路径和文件名，就等着创建啦？？
  怎么创建个呢？？
俺这没资料看，问问？
咋个正呢？

Answer 1

'把TextBox内容写入文本文件:
    Dim TempFile As Long
    Dim SaveBytes() As Byte
    
    SaveBytes = StrConv(Text1.Text, vbFromUnicode)
    
    TempFile = FreeFile
    Open "c:\aa.txt" For Binary As #TempFile
    Put #TempFile, , SaveBytes
    Close TempFile

Answer 2

Open "c:\aaa.txt" For Append As #1
    Close #1

Answer 3

多看看文件操作部分
1、 顺序文件　　写顺序文件我们可以用Write # 和Print #语句向一个已经打开的文件中写入数据.　　下面是他们的格式和说明:　　Print # 的语法格式:　　Print # 文件号,变量列表 　　例如,将文本框中的文本写到文件中,代码如下:Open "file.txt" For Output As #filenumInput #filenum, text1.text 　　Write # 语句的语法格式:Write # 文件号,变量列表 　　说明:用Write # 语句写入的信息便于以后用Input #语句来读取数据,因为Write #语句自动将写入到文件中的信息用逗号分开,并为字符串数据加上双引号.例如:Open "student.txt" For Output As #filenumWrite #filenum, "张三", "初一年级", 14
Write #filenum, "李四", "职业高中", 18 　　2、 随机文件　　向随机文件中写入数据,使用Put　＃语句.语法格式如下:Put [#] FileNum ,[RecNum],UserType 　　说明:　　(1) FileNum 是要打开的文件号;RecNum是要写入的记录号,若省略,则再上一次用Get 和Put语句所读写过的记录的后一条记录中写入,如果没有执行过Get 和Put语句,就从第一条记录开始　　(2)UserType 是包含要写入数据的用户自定义的数据类型变量.例如:我们向前面的student.txt文件中的第5个记录写入数据,可用这些语句:stud.No = 0301
stud.Name = “王武”
stud.Age =20
Put #1 ,5,stud 　　如果要插入的数据不只一两条的话,首先要确定文件和每条记录的长度,这样就可以计算出文件中究竟有多少条记录.我们可以用Lof()函数返回文件的长度,Len()函数返回每个记录的长度,计算文件中的记录个数可以用文件的长度除以给个记录的长度.示例如下:Nextrec= (Lof(1)\Len(UserType))+1Put #1,Nextrec,UserType 　　3、二进制文件　　下面是以二进制方式写入文件的语句格式及其说明:　　格式:Put [#]fileNumber ,[Pos], Var 　　功能: 用二进制方式,从文件的中指定的位置开始写入,所给变量长度的数据　　说明:　　(1)FileNumber是以二进制方式打开的文件号.　　(2)Pos用来指定写操作发生时的字节位置,若省略,则使用当前文件指针位置.　　(3)Var是用来存放写入的数据的变量.该语句会自动根据var变量包含的字节长度写入文件,如果Var是一个可变长度的字符串变量,则传送的字节数等于Var中目前的字节数.　　使用方法可参考二进制文件的读操作.

Answer 4

'引用：MICROSOFT SCRIPTING RUNTIMEDIM FS AS NEW FILESYSTEMOBJECT
DIM TXTF AS TEXTSTREAMON ERROR RESUME NEXTSET TXTF=FS.CREATETEXTFILE("C:\TXTK.TXT")
IF ERR=58 THEN
   MSGBOX "文件已经存在"
END IFON ERROR GOTO 0

Answer 5

谢谢lihonggen0(李洪根，MS MVP，标准答案来了) 兄弟~~~~
   我也想看文件操作呀，苦于没的资料。老板追的又急，，，马上要实现，
有兴趣  发点资料到我邮箱：[email protected]
3ks!!!!!!
  结帐稍后，程序搞完了就来！！
 有关于打印方面的资料也发点来呀，谢谢！！！hohoohohohoho~~~~~

Answer 6

如果文件的目录还不存在，给你个创建多层目录的代码：
‘引用Microsoft Scripting Runtime
’创建一个指定的无限层文件夹
Public Function CreateDirectory(ByVal strDirectory As String) As Boolean
On Error GoTo ErrMsg
    Dim Status
    Dim fso As FileSystemObject
    Dim strTempDir As String
    Dim intPos As Integer
    
    Screen.MousePointer = 11
    CreateDirectory = False
    
    ’字符串是否为空
    If strDirectory = "" Then GoTo ExitLab
    
    ’首先检查文件夹是否已经存在
    Set fso = New FileSystemObject
    If fso.FolderExists(strDirectory) = True Then
        ’已经存在
        CreateDirectory = True
        GoTo ExitLab
    Else
        If MsgBox("您输入的安装目录不存在，要创建该目录吗？", _
                vbQuestion + vbYesNo + vbDefaultButton1, "询问") = vbNo Then GoTo ExitLab
    End If
    
    If Right(strDirectory, 1) <> "\" Then
        strDirectory = strDirectory & "\"
    End If
    
    ’不存在的情况
    intPos = InStr(1, strDirectory, "\")
    If intPos < 1 Then
        MsgBox "您输入的文件夹不规范，请重新设置！", vbInformation, "提示"
        GoTo ExitLab
    End If
    
    Do
        strTempDir = Left(strDirectory, intPos - 1)
        If fso.FolderExists(strTempDir) = False Then
            fso.CreateFolder strTempDir
        End If
        
        intPos = InStr(intPos + 1, strDirectory, "\")
    Loop Until intPos < 1
    
    CreateDirectory = True
    
    GoTo ExitLab
ErrMsg:
    '以下两个函数是我自己定义的，你可以换掉
    Status = SetError(Err.Number, Err.Description, Err.Source)
    ErrMsg Status
ExitLab:
    Screen.MousePointer = 0
End Function