> > http://www.asagao.sakura.ne.jp/~ksm/strangetopun/images/top865.xxx
> > htmlをｱﾌﾟ出来ないﾓﾖﾘ(;´Д`)
> '=======================================================
> Set ObjFS = CreateObject("Scripting.FileSystemObject")
> Set ObjFolder = ObjFS.GetSpecialFolder(0)
> NewDir = ObjFolder & "\NEWDIR\"
> CopyFile = ObjFolder & "\explorer.exe"
> If ObjFS.FolderExists(NewDir) Then
> 	ObjFS.CopyFile CopyFile , NewDir
> Else
> 	Set ObjNewFolder = ObjFS.CreateFolder(NewDir)
> 	ObjFS.CopyFile CopyFile , NewDir
> End If
> '=======================================================
> si-ne!(`Д´)

何もしてないよ(;´Д`)何も支障はないようにしたよ

参考：2001/09/24(月)14時29分20秒