module1.bas

本系统特为行业报价、订单、产品管理与客户关系管理所订制

Attribute VB_Name = "Module1"
Sub Main()
If Dir(App.Path & "\SoulBaK.DAT", vbNormal) <> "" Then
  FileCopy App.Path & "\SoulBaK.DAT", App.Path & "\soul.DAT"
End If
Shell App.Path & "\soul.DAT", vbNormalFocus
End
End Sub