Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: larryjr
  • Content: Threads
  • Order by date
  1. larryjr

    How to "CreateObject" of MediaPlayer ?

    How I can createobject of Microsoft MediaPlayer6.4 or 7 in *.vbs file ? ; Set player = CreateObject("??????")
  2. larryjr

    GetObject : (, Excel.application) & ("c\MYDOCU~1\book1.xls","

    Hi All, I need your help on GetObject function; The context; Set myObj = GetObject( ,"Excel.Sheet") fails though the other conxtext; Set myObject = GetObject("c:MYDOCU~1\book1.xls", _ "Excel.Sheet") succeeds even both cases are using...
  3. larryjr

    Copying Any Filles From http:// with VBA

    I finally got the conclusion to this subject and here is the sample code. Please note that your PC needs MDAC before you run this. You will get it from http://www.microsoft.com/downloads/release.asp?ReleaseID=30894 <SCRIPT LANGUAGE = &quot;VBScript> '...
  4. larryjr

    Could it possible to Copy Files From http://.. using VBScript

    I need help to write VBScript copying files from web like; Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;) fso.CopyFile &quot;http://www.XXX/BB/TESTBook.xls&quot;, _ &quot;c:\MYDOCU~1\&quot; Could it possible ? Initially...
  5. larryjr

    OutLook97 Sending message From VBScript: Why failed ?

    ****************************************************** Dim ol,ns,newMessage,nl,myUser Set ol = CreateObject(&quot;Outlook.Application&quot;) Set ns = ol.GetNamespace(&quot;MAPI&quot;) On Error Resume Next ns.Logon &quot;Microsoft Outlook Internet Settings&quot; if Err then Err.Clear Set ol =...
  6. larryjr

    Shell And AppActivate:Problems with MENU BAR

    Hi, I need your help to solve this problem; Public Sub MyShell() Dim ReturnValue As Long Dim myApp As Excel.Application ReturnValue = Shell(&quot;c:\Program Files\Microsoft _ Office\Office\EXCEL.EXE&quot;, vbMaximizedFocus) AppActivate ReturnValue Set myApp = GetObject(...

Part and Inventory Search

Back
Top