>>581
Option Explicit
Dim objFS
On Error Resume Next
Set objFS = WScript.CreateObject("Scripting.FileSystemObject")
objFS.MoveFile "ddraw.dll","#ddraw.dll"
If Err Then
Err = 0
objFS.MoveFile "#ddraw.dll","ddraw.dll"
If Err Then
MsgBox "RTXが見あたらないでつ・・・（つ＿；）"
Else
MsgBox "RTXを有効にしますた"
End If
Else
MsgBox "RTXを無効にしますた"
End If
