创建FSO对象时使用以下语句即可：
Set fso = CreateObject("Scripting.FileSystemObject")
如果无法创建成功，可以尝试在开始/运行中执行以下命令：
RegSvr32 %windir%\SYSTEM32\scrrun.dll
