釋放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"