文件流

Question

我要生成一个以当前日期为文件名的txt文件，或
如：a="sdd"
要生成a.txt
如何生成？如何生成文件夹？
我向文件.txt里输入文件，打开后写入文件不希望将上次的内容被覆盖，而想换行继续输入，如何实现？

Answer 1

1，dim a as string 
a =format$(now(),"yyyyymmdd")
call createemptyfile(a & ".txt")
===================================Public Sub CreateEmptyFile(Optional ByVal isFileFullName As String = "")
On Error GoTo CreateEmptyFile_Error
    
    Dim iFileHand               As Integer
    
    If isFileFullName <> "" Then
        iFileHand = FreeFile
        Open isFileFullName For Output As #iFileHand
        Close #iFileHand
    End If
    
    FileFullName = isFileFullName
    
    GoTo WayOut
CreateEmptyFile_Error:
WayOut:
End Sub2，
Sub MkDir(Path As String)
    VBA.FileSystem 的成员
    创建一个新的目录或文件夹3,追加
    Dim iFileNum                As Integer
    Dim strFileName             As String
    
    iFileNum = FreeFile
    strFileName = App.Path & "\Test.log"
    
    Open strFileName For Append As #iFileNum
    Print #iFileNum, "tets"
    Close #iFileNum