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



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
  • Test
    2 hours 20 mins 26 secs ago
  • Test 1
    2 days 3 hours 19 mins 47 secs ago
  • Naa Peru Surya - Naa...
    1 week 1 day 22 hours 14 mins and 10 secs ago
  • 漢字
    1 week 2 days 14 hours 55 mins and 22 secs ago
  • Ghfjgjfkdk
    1 week 2 days 22 hours 2 mins and 3 secs ago