代替ストリームを除去する。
例えば、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)テキストファイルなので使えます。