2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« ショートカットをこのフォルダに作成する。 | トップページ | 代替ストリームだけを一覧する。 »

2010年2月21日 (日)

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

例えば、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)テキストファイルなので使えます。

« ショートカットをこのフォルダに作成する。 | トップページ | 代替ストリームだけを一覧する。 »