jcunews

BinaryExtractor.vbs

Aug 10th, 2019
340
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. sourceFile  = "e:\dos games\strange game.dsk"
  2. startOffset = 0
  3. dataLength  = 10240
  4. destFile    = "d:\data\output.bin"
  5.  
  6. set fs = createobject("scripting.filesystemobject")
  7. set fi = fs.opentextfile(sourceFile)
  8. set fo = fs.createtextfile(destFile, true)
  9. if startOffset > 0 then fi.skip startOffset
  10. fo.write fi.read(dataLength)
  11. fo.close
  12. fi.close
RAW Paste Data