module1.bas

来自「一套商品管理」· BAS 代码 · 共 9 行

BAS
9
字号
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

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?