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: 16



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
  • Gfhghf
    5 days 10 hours 16 mins 13 secs ago
  • Sex Da Mojna
    5 days 13 hours 13 mins ago
  • GTA 6
    6 days 7 hours 23 mins 8 secs ago
  • Asd
    6 days 17 hours 18 mins 9 secs ago
  • FFFFF
    1 week 2 days 5 hours 19 mins and 4 secs ago