代替ストリームを除去する。

例えば、NTFSからFATやZIPにコピーすれば、代替ストリームが消えますが、単に代替ストリームを除去するには？

スクリプトで、

remove-streams.vbs ファイル...

const adTypeBinary = 1
const adSaveCreateOverWrite = 2
for each file in wscript.arguments
  set stream=createobject("adodb.stream")
  stream.type=adTypeBinary
  stream.open
  stream.loadfromfile file
  stream.savetofile file, adSaveCreateOverWrite
  stream.close
next

バッチファイルで、ただし、(シフトJIS)テキストファイル限定

remove-streams.cmd ファイル...

for %%I in (%*) do for /f "delims=" %%J in ('type  %%I ^& type nul ^>%%I') do (echo;%%J) >>%%I

インターネットショートカットも(シフトJIS)テキストファイルなので使えます。