新建 文本文档.txt

一套适用于超市

Dim fso As New FileSystemObject, fill As File
 Dim HelpPath As String
    If Right(Trim(App.Path), 1) <> "\" Then
      HelpPath = App.Path + "\"
  Else
      HelpPath = App.Path
  End If
  'HelpPath = HelpPath + ".chm"
  Shell (App.Path + "\Help\HelpMaker.exe ") + HelpPath, vbNormalFocus