module1.bas

来自「是我应我们学校学工部做的软件,其主要是解决想我们学校这样的条件--各个办公室之间」· BAS 代码 · 共 17 行

Attribute VB_Name = "Module1"
Public userfun(20) As Boolean
Public connectstring As String
Public Const SND_ASYNC = &H1         '  play asynchronously
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOW = 5


Public Function FileExists(p As String) As Boolean
   If Dir(p) <> "" Then
      FileExists = True ' 返回表示文件存在的常数。
   Else
      FileExists = False ' 返回表示失败的常数。
   End If
End Function