Private Sub Form_Load()
ActionType = MAKE_SPF
If IsWinZIP = NOT_DETECT Then Detect_WinZIP
If IsWinZIP = HAVE_WINZIP Then chkUseWinZIP.Enabled = True
End Sub

IsWinZIP是用來判斷是否檢查過WinZIP路徑的布林值
如果檢查出WinZIP的存在，就將自動呼叫WinZIP的控制項致能(Enabled=True)
而至於檢查的方法我們來看看Detect_WinZIP這一段副程式


Private Sub Detect_WinZIP()
Dim hkey As Long
Dim sLen As Long

    檢查的方法其實很簡單，如果WinZIP如果存在的話，
    你應該會在HKEY_CLASSES_ROOT=\WinZip\shell\open\command這個SubKey中
    查到WinZIP的執行路徑
    再經過一些檔案的確認動作
    就可以得知WinZIP的執行檔路徑了
    不過有一點要提醒的
    其實我的動作有點偷工減料
    正確的步驟應該先搜尋.zip是否有被關聯
    再依據.zip取得的值一路追回去才對
    不過，WinZIP的登錄路徑基本上似乎是沒有改變過
    所以就稍稍偷工減料了
    但是該了解的還是要了解才行喔!

RegOpenKey HKEY_CLASSES_ROOT, "WinZip\shell\open\command", hkey
RegQueryValueEx hkey, "", 0, REG_SZ, ByVal vbNullString, sLen
WinZIPCommand = String(sLen, Chr(0))
RegQueryValueEx hkey, "", 0, REG_SZ, ByVal WinZIPCommand, sLen
RegCloseKey hkey

If WinZIPCommand <> "" Then
   WinZIPCommand = Left(WinZIPCommand, InStr(WinZIPCommand, " ") - 1)
   If Dir(WinZIPCommand) <> "" Then
      IsWinZIP = HAVE_WINZIP
   Else
      IsWinZIP = NO_WINZIP
   End If
Else
   IsWinZIP = NO_WINZIP
End If
End Sub

Private Sub MakeSPFFile(SPMFile As String)
'略

On Error GoTo MakeSPFError

'Get Current Path & SPM FileName,if SPM file exist,ask user delete?
首先我們先找出要建立的SPM檔的正確完整路徑，然後，Check SPF的檔案是否已經
存在，如果已經存在，記得詢問使用者是否確定要覆蓋原檔
'略

'Get a temp file name for SPM
接下來要建立一個暫存檔
用來存放要建立在SPF檔中的SPM檔
'略

txtStatus.Text = "開始解析" & SPMFile & vbCrLf
DoEvents

fNum = FreeFile
Open readFile For Input As #fNum
fNum2 = FreeFile
Open tmpSPMFile For Output As #fNum2

'Check Head Data
撿查SPM檔的檔頭
'略

totalFileNo = 0
txtStatus.Text = txtStatus.Text & "處理中"
DoEvents
ReDim SPM_DATA(1 To 301) As String
'SPM File Data Array (MAX file in SPM 100*3+1 (wav,mid and picture + tmpfile))
建立一個陣列存放要用到的檔案資訊
一個SPM專案檔，最多可以設定100張圖片，而每一個圖片設定，最多
可能會包含有Wave,Midi及圖片本身三個檔案，加上SPM專案檔
因此我們最多會需要用到100*3+1個檔案

接下來就要讀取SPM檔的資料寫到暫存檔中
在檔案資訊方面，我將路徑方面的資料都拿掉了，
因為到時候你在解SPF檔的時候，這個路徑根本不能使用，
因此我們只要寫下檔名就可以了
然後我們再把要加入SPF檔的檔名存到SPM_DATA這個陣列中

Do Until EOF(fNum)
   Line Input #fNum, rBuf$
   Print #fNum2, rBuf
   
   For i = 1 To 3
      '略
   Next i
   For i = 1 To 4
      '略
   Next i
   'Nothing,Just show process
   '略
Loop
SPM_DATA(totalFileNo + 1) = tmpSPMFile
Close #fNum
Close #fNum2

'If no file,stop handle
假如沒有任何檔案？那還要做什麼？離開吧！
If totalFileNo = 0 Then
   txtStatus.Text = txtStatus.Text & "程式強制中斷，沒有找到任何需要處理的檔案"
   Exit Sub
End If

txtStatus.Text = txtStatus.Text & vbCrLf

'Create a temp directory
接下來要準備將檔案製作成SPF的檔案格式了
我們設立一個暫存目錄，避免與其它檔案發生衝突
'略

txtStatus.Text = txtStatus.Text & "開始壓縮作業"
DoEvents
ReDim SPF_DATA(0 To totalFileNo + 1) As String
'SPF file data array (ini file+file of SPM +list file)
SPF_DATA(0) = "scrpack.ini"

在SPF檔案中，第一個放的一定是檔案總表，記載所有要解開的檔名
不然的話，你就不知道要將解開來的檔案取什麼名字囉!
接下來的算是硬功夫，將用到的檔案一個一個寫下來存到暫存檔中，
請自己參考相關書籍

For i = 1 To totalFileNo + 1
    '略
Next i
txtStatus.Text = txtStatus.Text & vbCrLf
txtStatus.Text = txtStatus.Text & "壓縮結束，建立List資料檔" & vbCrLf
DoEvents

'Create scrpack.ini,write filename information in file,and create 1024 format packet file
建立List檔，並製作成1024Byte格式的封包檔
'略


txtStatus.Text = txtStatus.Text & "建立List資料檔成功，壓縮資料檔"
DoEvents

fName = tmpPath & "SPF000.tmp"
readFile = tmpPath$ & "scrpack.ini"

j = FileLen(readFile) Mod 1024
If j = 0 Then
   PackTime = FileLen(readFile) \ 1024
   FileSize = 1024
Else
   PackTime = (FileLen(readFile) \ 1024) + 1
   FileSize = j
End If
totalPacketNo = totalPacketNo + PackTime

'if total packet no >65535,it can't write in head(more then 2bytes),so we need stop handle.
'before we quit subscript,delete temp file,directory
If totalPacketNo > 65535 Then
   MsgBox "檔案容量超過最大限制(64M)，程式強制中斷！", vbOKOnly Or vbExclamation
   txtStatus.Text = txtStatus.Text & vbCrLf & "刪除暫存檔"
   DoEvents
   Kill tmpPath & "*.*"
   Kill tmpSPMFile
   txtStatus.Text = txtStatus.Text & vbCrLf & "刪除暫存目錄"
   DoEvents
   RmDir tmpPath
   txtStatus.Text = txtStatus.Text & vbCrLf & "結束"
   Exit Sub
End If

'Create list file's packet file
'略

前置作業大概就到此為止了，該知道的資訊都讀出來了，
暫存檔也都做好了，確定一下封包數量有沒有超過最大限制
就可以把檔案Cat起來了

txtStatus.Text = txtStatus.Text & vbCrLf & "建立List資料檔成功，" & vbCrLf & "開始建立SPF資料檔案"

'if SPF file exist,delete it
假如已經SPF檔存在，記得將它砍掉
fName$ = pathBuf$ & Left$(SPMFile, InStrRev(SPMFile, ".")) & "SPF"
If Dir(fName$) <> "" Then Kill fName$
DoEvents


開始製作SPF封包檔
將檔頭等資訊寫入，再將所有的暫存檔一個個cat起來
這樣就行了

'略


'Check Use Winzip,If Used,Call WinZip & Make SPZ File
如果使用者有勾選呼叫WinZIP的話，就幫它呼叫WinZIP來壓縮檔案
If chkUseWinZIP.Value = vbChecked Then Call CallWinZIP(fName)


'create over.delete temp file and directory
建立完成囉！記得將剛剛建立的暫存檔及目錄清乾淨
'略

Exit Sub

'when something error,remember close fileNo
當發生錯誤時，記得將檔案關閉，並將暫存檔刪除喔！

MakeSPFError:
    MsgBox "製做SPF檔發生錯誤！請重新檢查你的檔案是否存在，或者有所毀損", vbOKOnly Or vbExclamation
    Close #fNum
    Close #fNum2
    Kill tmpPath & "*.*"
    Kill tmpSPMFile
    RmDir tmpPath
    Resume QuitMakeError
    
QuitMakeError:
    Exit Sub
End Sub