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



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
  • Admin Style CSS
    17 hours 18 mins 5 secs ago
  • Asdasdad
    1 week 3 days 2 hours 26 mins and 50 secs ago
  • Testing
    2 weeks 17 hours 18 mins and 13 secs ago
  • 77777
    2 weeks 1 day 21 hours 52 mins and 51 secs ago
  • Test paste
    2 weeks 3 days 9 hours 2 mins and 25 secs ago