The text below is selected, press Ctrl+C to copy to your clipboard. (⌘+C on Mac) No line numbers will be copied.
Guest
FFFFF
By Guest on 12th July 2018 12:23:55 AM | Syntax: VB | Views: 43



New paste | Download | Show/Hide line no. | Copy text to clipboard
  1. Sub LogThis(sData, sPath)
  2.  Dim fso As FileSystemObject
  3.  Dim oFile As Object
  4.  Const TristateUseDefault = -2, TristateTrue = -1, ForAppending = 8
  5.  
  6.  Set fso = New FileSystemObject
  7.  Set oFile = fso.OpenTextFile(sPath, ForAppending, TristateUseDefault)
  8.  oFile.Write sData & vbCrLf
  9.  oFile.Close
  10.  
  11.  'Release back into the wild.
  12. Set oFile = Nothing
  13.  Set fso = Nothing
  14.  End Sub



  • Recent Pastes