home *** CD-ROM | disk | FTP | other *** search
/ swCHIP 1991 January / swCHIP_95-1.bin / desktop / scrsavr / mnyth2 / rundaily.bas < prev    next >
BASIC Source File  |  1995-12-09  |  1KB  |  30 lines
  1. ' This program reads a table of program names, run dates,
  2. '   and run intervals in days and if this is the day the program,
  3. '   the program is done an the run date is incremented by the
  4. '   interval
  5.  
  6. Declare Sub LoadLibrary Lib "Kernel" (ByVal LibName$)
  7. Declare Function SystemParametersInfo Lib "User" (ByVal uAction As Integer, ByVal uParam As Integer, lpvParam As Any, ByVal fuWinIni As Integer) As Integer
  8.  
  9. Declare Function WritePrivateProfileString Lib "KERNEL" (ByVal lpszSectionName As String, ByVal lpszKeyName As String, ByVal nString As String, ByVal lpszFileName As String) As Integer
  10.  
  11. Global FileName As String
  12.  
  13. Sub Main ()
  14.  
  15.     LoadLibrary "VBRUN200.DLL"  ' loads the vb runtime library into
  16.                             ' memory to speed loading of all vb
  17.                             ' programs run here after
  18.  
  19.     If Command$ = "" Then
  20.         MsgBox "Must include Filename on Command Line", 48
  21.         End
  22.     End If
  23.  
  24.     FileName = Command$
  25.  
  26.     RunDaily.Show ' run main program
  27.  
  28. End Sub
  29.  
  30.