> 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時28分09秒