Code:
Sub Main(parm as object) My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.SpecialDirectories.Desktop & "\HS-memory.txt", Now & " - " & hs.HSMemoryUsed & ControlChars.CrLf, True) End Sub
If you're planning to use Excel, then consider this code instead. It changes - with tab:
Code:
Sub Main(parm as object) My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.SpecialDirectories.Desktop & "\HS-memory.txt", Now & ControlChars.Tab & hs.HSMemoryUsed & ControlChars.CrLf, True) End Sub