求高手翻译这个vbs文件

Dim WshSHell,FSO '声明变量并分配存储空间 On Error Resume Next '不顾运行时错误，继续执行程序 Set WshSHell = WScript.CreateObject("WScript.Shell")'创建WScript.Shell对象 Set FSO = CreateObject("Scripting.FileSystemObject") '创建FSO对象 Set OF = FSO.O