home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cafead1a / runme.bas < prev    next >
Encoding:
BASIC Source File  |  1999-09-10  |  965 b   |  21 lines
  1. Attribute VB_Name = "RunMe"
  2. '******************RunMe.bas****************************
  3. ' Opens any file type in its associated program.
  4. ' With module added it takes one line of code.
  5. ' Add:  Run Me, "full pathname" to control event.
  6. ' Example 1: Run Me, "C:\Windows\notepad.exe"
  7. ' Example 2: Run Me, "C:\scandisk.log"
  8. ' Code also shows a way to get the Directory (path)
  9. ' from a full path and filename without a For Next
  10. ' statement.
  11. '*******************************************************
  12. Option Explicit
  13.  
  14. 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
  15. Sub Run(frm As Form, filename As String)
  16. Dim lRtn As Long
  17. filename = Trim(filename)
  18. lRtn = ShellExecute(frm.hwnd, "Open", filename, "", Left(filename, Len(filename) - Len(Dir(filename, 0))), 1)
  19.  
  20. End Sub
  21.