Sub asd(o As GwxPick)
Call Write_in_File("C:\logfile.log", "Strings")
End Sub
Function Write_in_File(File, Content)
Dim newFS
Set newFS = CreateObject("Scripting.FileSystemObject")
Set File_Name = newFS.OpenTextFile(File, 2, True)
File_Name.Write Now & " " & Content
File_Name.Close
Set File_Name = Nothing
Set newFS = Nothing
End Function
ASKER
ASKER
Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.
TRUSTED BY
' OpenTextFile Method needs a Const value
' ForAppending = 8 ForReading = 1, ForWriting = 2
Const ForAppending = 8
http://www.computerperformance.co.uk/vbscript/vbscript_file_opentextfile.htm
Open in new window