建立文件和书写文件内容

最新推荐文章于 2022-07-12 23:44:40 发布

jianghushang

最新推荐文章于 2022-07-12 23:44:40 发布

阅读量281

点赞数

分类专栏：开发笔记文章标签： string module vb.net integer timer c

本文链接：https://blog.csdn.net/jianghushang/article/details/6233658

版权

开发笔记专栏收录该内容

4 篇文章 0 订阅

订阅专栏

在指定路径下建文件，书写文件内容(VB.NET)

Module Module1

    Sub Main()
        WriteText("TextTest")
    End Sub

    Private Sub WriteText(ByVal Msg As String)
        Dim FileName As String, FileNum As Integer
        Dim strOut As String
        Dim LogFolder As String

        LogFolder = "C:/Folder"
        If (System.IO.Directory.Exists(LogFolder) = False) Then LogFolder = "C:"
        FileName = LogFolder + "/" + "ABC.txt"

FileNum = FreeFile()
FileSystem.FileOpen(FileNum, FileName, OpenMode.Append)

        strOut = Format(Now, "yyyy/MM/dd HH:mm:ss") & "." & Right(Format(Timer, "#0.00"), 2) & "," & Msg
        PrintLine(FileNum, strOut)
        FileClose(FileNum)
    End Sub

End Module