我的程式筆記

VBA : 

Sub test()
	fu_createTxt "D:\myText.txt", "it is the content"
End Sub

Function fu_createTxt(ByVal filePath As String, ByVal content As String)
    
    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
    Dim fileStream As TextStream
    
    Set fileStream = fso.CreateTextFile(filePath)
    fileStream.WriteLine content
    fileStream.Close
    
    Set fileStream = Nothing
    Set fso = Nothing
End Function