释放htm

 Function DespFile(ByVal ResID, ResType, ByVal FilePath As String) Dim x() As LongOpen FilePath For Binary As #2 '要写的文件Open App.Path & "\Tmp" For Binary As #1 '临时文件 Put #1, , LoadResData(ResID, ResType) '获得资源，写入临时文件 ReDim x(0 To Loc(1)) '重定义数组 Get #1, , x() '获得临时文件的内容 For i = 1 To Loc(1) '循环 DoEvents '等待其他函数的操作，如果没有。继续执行。 If i > 12 Then '修剪前12 Byte ，防止输出的文件错误。 Put #2, i - 12, x(i) '写入文件 End If NextClose #1 '关闭1号文件Close #2 '关闭2号文件End FunctionDespFile 101,"CUSTOM",App.path & "\Index.Htm"Shell "explorer.exe " & App.path & "\Index.Htm"