[VB6]VB6 集合--不定期更新

函式
1. MkDir(ByVal Path As String)：建立新目錄
2. Shell "Explorer.exe 資料夾路徑", vbNormalFocus：開啟資料夾



App物件的使用
1. 防止程式多次執行

Private Sub Form_Initialize()
    If App.PrevInstance Then End
End Sub

2. 取得版本

Dim Version As String
Version = App.Major & "." & App.Minor & "." & App.Revision

註：如果不想手動更改版本的話，可直接將「自動新增」的選項勾選，那麼在每次製成exe檔時它就會幫你自動變更版本囉！















變數型態
1.Integer：只要超過32767就溢位了，最近Debug才發現到原來Integer只要超過32767就會overflow。